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TITLE OF THE INVENTION 

METHOD FOR FACILITATING PRICING, SALE AND 
DISTRIBUTION OF FUEL TO A CUSTOMER 

COMPUTER SOFTWARE ADDENDUM 

Attached hereto is a compact disc containing computer software and 
data including executable programs, scripts, and database management 
system tables that are used to implement the systems and methods provided by 
the present invention. More particularly, the attached compact disc contains 
software and data used to implement at least two distinct applications 
comprising the systems and methods provided by the present invention; such 
two distinct applications include a broad-based, general use energy 
management system (referred to as the Energy Management System "EMS"), 
and a limited user/function restricted application (referred to as the Producer 
Control Center "PCC") intended for use by fuel producers needing access to 
centrally stored and managed fuel deal data. Such material is protected by the 
Copyright Laws of the United States (17 U.S.C. § 101, et seq.) and may not be 
copied without the express, written authorization of the copyright holder 
(Highland Energy Corporation). Copyright © 2001, Highland Energy 
Corporation. All Rights Reserved. 

BACKGROUND OF THE INVENTION 
Field of the Invention 

The present invention relates to systems and methods used to facilitate 
pricing, sale, and distribution of fuel to a customer. More particularly, the 
present invention is directed to automated systems and methods that are used 
to price fuels such as natural gas, oil, gas, other petroleum based fuels, etc., to 
facilitate commodity sales of such fuels, and to distribute such fuels to 
customers, and to track and report sales and distribution related data. 



Description of the Related Art 

Fuel sales and distribution systems and techniques are well known. 
Everyday millions of fuel sale contracts are completed in the U.S. and abroad. 
Fuels produced by a range of producers are transported over many modes of 

5 transportation (e.g., gas pipelines, etc.) to ultimately arrive at an intended 
destination. The steps involved in pricing fuel, selling a reserve, storing 
reserves, and ultimately transporting purchased fuel involve many parties 
including producers, agents, brokers, other middlemen and, ultimately, end 
customers. All of these parties have their own unique ways of doing business, 

10 reporting sale and purchase data, and collecting and paying against agreed 
upon contracts. 

Unfortunately, many of the steps and processes carried out to facilitate 
fuel sales and distribution are archaic, inefficient, and, often, paper-based. 
Such inefficient ways of doing business cause many parties to engage large 

15 teams of personnel to manage the intricate details often involved in fuel sale 
and distribution. Fuel deal pricing provides a good example of the inefficiencies 
involved in moving large volumes of natural gas and other fuels. 

Typically, pricing fuel deals in the natural gas arena involves manual 
processes related to gathering fuel index rates, manually computing sales 

20 prices across a multitude of fuel sales deals, laboriously factoring in 
transportation and other tangential costs, and managing for fuel overages and 
short falls often associated with transportation anomalies, etc. These 
processes typically involve the efforts of large teams of personnel within 
organizations who are required to constantly monitor sales deals, set pricing 

25 limits for sales people, and track and record fuel deal progress. 

While many systems have been developed to facilitate sale and 
distribution of fuel and other products, commodities, and services in general, no 
systems developed to date can effectively management the volume of 
transactions among a wide array of parties to efficiently and effectively get fuel 

30 from one place to another. Moreover, existing systems have heretofore not 
been able to facilitate pricing practices that factor in past fuel deal data across a 
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multitude of prior fuel deals to better drive profit margins in the commodities and 
brokerage fields. 

Accordingly, there exists a serious need to provide systems and methods 
that enable centralized location and management of fuel deal data, provide for 
application of pre-determined pricing techniques based on such fuel deal data, 
facilitate broad-based reporting based on such centrally stored fuel deal data to 
drive better business practices for parties to fuel deals, and increase 
productivity and make more efficient fuel sale and distribution practices. The 
present invention squarely addresses such a need and provides a new and 
improved systems and methods for facilitating fuel sale and distribution. 

SUMMARY OF THE INVENTION 

The present invention solves the problems mentioned above with regard 
to prior systems and methods used to facilitate sale and distribution of fuel to a 
customer. By squarely addressing the limitations of prior systems and 
methods, the present invention provides new and improved systems and 
methods that permit a wide array of users to broadly access a central data store 
to create and manage fuel deal data. Such new and improved systems and 
methods further permit the inclusion of pricing processes into existing business 
processes that are based on prior fuel deal data and which take into account 
prior prices charged across collections of prior fuel deal contracts. 

Accordingly, the present invention provides new and improved systems 
and methods for facilitating sale and distribution of fuel to a fuel customer. 
Such systems and methods include and involve a server facility configured to 
store fuel deal data and to process such fuel deal data to automatically 
generate pricing data based on the fuel deal data and in accordance with a pre- 
determined pricing technique. The system and method also include and involve 
a client facility that is coupled to the server facility via an electronic data network 
and which is configured to permit a user to enter such fuel deal data and to 
cause the server facility to store and process the fuel deal data to generate the 
pricing data. As such, fuel may be sold and distributed to a fuel customer via a 



fuel distribution system based on the fuel deal data and the automatically 
generated pricing data. 

BRIEF DESCRIPTION OF THE DRAWINGS 

The present invention is described in detail below with reference to the 
following drawing figures, of which: 

FIG. 1 is a timing diagram that depicts process flows within a business 
process that facilitates sale and distribution of fuel to customers in accordance 
with a preferred embodiment of the present invention; 

FIG. 2 is a system diagram in which client systems can access server 
system(s) to facilitate sale and distribution of fuel to customers in accordance 
with the business process illustrated in FIG. 1; 

FIG. 3A is an entity relationship diagram that depicts data relationships 
among tables and corresponding table entries used to implement the systems 
that carry out the business process illustrated in FIG. 1; 

FIG. 3B is another entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used to implement 
the systems that carry out the business process illustrated in FIG. 1 ; 

FIG. 3C is another entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used to implement 
the systems that carry out the business process illustrated in FIG. 1 ; 

FIG. 3D is another entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used to implement 
the systems that carry out the business process illustrated in FIG. 1; 

FIG. 3E is another entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used to implement 
the systems that carry out the business process illustrated in FIG. 1; 

FIG. 3F is another entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used to implement 
the systems that carry out the business process illustrated in FIG. 1 ; 



FIG. 3G is another entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used to implement 
the systems that carry out the business process illustrated in FIG. 1; 

FIG. 3H is another entity relationship diagram that depicts data 
5 relationships among tables and corresponding table entries used to implement 
the systems that carry out the business process illustrated in FIG. 1; 

FIG. 31 is another entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used to implement 
the systems that carry out the business process illustrated in FIG. 1 ; 
10 FIG. 3J is another entity relationship diagram that depicts data 

relationships among tables and corresponding table entries used to implement 
the systems that carry out the business process illustrated in FIG. 1 ; 

FIG. 3K is another entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used to implement 
15 the systems that carry out the business process illustrated in FIG. 1 ; 

FIG. 3L is another entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used to implement 
the systems that carry out the business process illustrated in FIG. 1 ; 

FIG. 3M is another entity relationship diagram that depicts data 
20 relationships among tables and corresponding table entries used to implement 
the systems that carry out the business process illustrated in FIG. 1 ; 

FIG. 3N is another entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used to implement 
the systems that carry out the business process illustrated in FIG. 1; 
25 FIG. 4A is another screen shot of a data processing application running 

within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1 ; 

FIG. 4B is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
30 effect the business process illustrated in FIG. 1 ; 
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FIG. 4C is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1 ; 

FIG. 4D is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1 ; 

FIG. 4E is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1 ; 

FIG. 4F is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1; 

FIG. 4G is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1; 

FIG. 4H is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1; 

FIG. 41 is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1; 

FIG. 4J is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1 ; 

FIG. 4K is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1; 

FIG. 4L is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1; 



FIG. 4M is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1; 

FIG. 4N is another screen shot of a data processing application running 
5 within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1; 

FIG. 40 is another screen shot of a data processing application running 
within a client system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1; 
10 FIG. 4P is another screen shot of a data processing application running 

5 within a client system to facilitate at least some of the operations carried out to 

IB effect the business process illustrated in FIG. 1 ; 

m FIG. 4Q is another screen shot of a data processing application running 

within a client system to facilitate at least some of the operations carried out to 
15 effect the business process illustrated in FIG. 1 ; 

FIG. 5A is a flow chart that illustrates the operations carried out to effect 
W a pricing technique and, in particular, one that effectuates a weighted average 

lI sales price for fuel deals in accordance with a preferred embodiment of present 

:f invention; and 

20 FIG. 5B is the conclusion of the flowchart started in FIG. 5A. 

DETAILED DESCRIPTION OF THE 
PREFERRED EMBODIMENTS 

The present invention is now described in detail with regard to the 

25 drawing figures that were briefly described above. 

The systems and methods described herein are illustrative of the exemplary 
system implemented by way of computer software within a networked data 
processing environment and which is contained within multiple files housed on 
the compact disc that is appended to this patent document. Accordingly, the 

30 discussion that follows refers to such an exemplary system and those skilled in 
the art are encouraged to review such appended software in the context of fuel 
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deal management for a complete understanding of the present invention. As 
noted at the beginning of this patent document, the material contained on the 
attached compact disc is protected by the Copyright Laws of the United States 
(17 U.S.C. § 101, et seq.) and may not be copied without the express, written 
authorization of the copyright holder (Highland Energy Corporation). Copyright 
© 2001 , Highland Energy Corporation. All Rights Reserved. 

Referring now to FIG. 1,. depicted therein is a timing diagram 
corresponding to the business process carried out within an organization to 
facilitate sale and distribution of fuel to a customer and which may be set up to 
utilize the systems and methods provided by the present invention. In 
particular, FIG. 1 , illustrates a monthly or periodic business process involving 
several phases of operation that are carried out by the systems and methods 
provided by the present invention including, but not limited to: an availability 
phase, a bidding phase, a nominating (e.g., gas pipeline nominations, etc.) and 
routing phase, a third party and sanctioned sales period, a pricing period, an 
invoicing period, and an accounting period. Together, these periods make up 
what is referred to herein as a MONTH OF FLOW PROCESS (MFP). The MFP 
is described next to further illustrate the business operations that are handled 
by the systems and methods provided by the present invention. 

THE MONTH OF FLOW PROCESS (MFP) 
Availability Period 

During the availability period of the month of flow process, equity 
contracts for sale and distribution of fuel (those that need to roll from month to 
month) are established for the next month. These purchase deals define the 
anticipated volumes by well/meter for each producer. The status for the 
production month needs are set to 'Availability' at this point. Then, 
correspondence is transferred (via fax, email and phone conversations) to the 
various operators/producers in order to confirm the anticipated volumes to be 
produced. 



The anticipated production volume for an entire well/meter is then 
entered into the system. An entitlement and makeup percentage is used to 
indicate how much of this volume is actually available to be marketed 
(represents the owner interest in the production of the well/meter). New deals 
5 are setup on the system to represent the new month's purchases. The package 
description is utilized to assist with easy recognition of volumes, price, etc. 
(used for identification purposes only). There is a process built within the 
system to automate the propagation of new deals to the next month (first time 
into a new month will automatically generate entries for the new month with 

10 zero volume amounts). The actual volume stored on the system (at this point) 
is zero. Only the nominated volumes contain the expected volumes for the 
production month. These 'nominated" volumes are equal to the estimates 
provided by the producers and entered into the system during this part of the 
month of flow. The primary area of the system utilized is the 'Availability' 

15 functions (off the system's main menu.) 

Bid Week Period 

During the bid week of the month of flow process, buyers are found for 
the volumes that were made available through the availability step described 

20 above. The status of the production month of the system needs is set to 'Sales" 
at this point. By setting the status to 'Sales' all of the price indices will be 
initially populated and 'seeded' with zero values. Each of the sales is confirmed 
by a dealmaker and is written up on a deal log sheet. These deal log sheets 
reflect the pipe/field, meter/well, company, contract, volume, and pricing 

25 instructions to support the sale. Prior to completing a deal, the dealmaker will 
work closely with the volume control group to ensure that appropriate volumes 
will be available at the well/meter of sale. The dealmakers then complete the 
deal log sheet entries for the sale and they are transferred to the volume control 
group for deal creation and entry into the system. Most of the volumes sold 

30 during this particular phase are for the equity purchase deals created during the 
availability period. 
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Nominating and Routing 

During the nominating and routing period of the month of flow process, 
the volumes to support the sales are routed from the producer's well/meters to 
the sales wells/meters (primarily to pooling points or field tanks). This process 
occurs throughout the entire month. When the volumes are routed to specific 
pool wells/meters, allowances are automatically made by the system for fuel, 
gathering and transport costs. These costs will net down the actual available 
volumes that can be applied to the sales deals. When volumes are routed to a 
pool/tank then these volumes reflect as Transport Out volumes'. The volumes 
then show up as "Transported In' (net fuel) on the receiving meter/well within 
the system. The primary area with the System utilized during this process is the 
"Route Volume" menu option within the Routing module (main menu selection 
of 'Routing' on the System. 

Third Party Deals and Sanctioned Sales 

During the Third Party Deals and Sanctioned Sales of the month of flow 
process, the dealmakers complete the third party deals. These deals are 
typically setup where a specific purchase deal (non equity type) is made to 
support a specific sales deal. These types of deals will usually have a specific 
price agreement and volume associated with them. Sanctioned sales represent 
sales from equity volumes with specific terms (prices, volumes, etc.) to specific 
sales meters. A sales price for a specific volume is set in advance of the 
production month with these types of deals. All third party deals are excluded 
from Weighted Average Sales Price (WASP) calculations as discussed below 
with regard to FIGS. 5A and 5B (each third party purchase volume exists within 
its own WASP pool ('None')). All sanction sales deals are included within the 
WASP calculation but EACH combination sanction sales (purchase-to-sale) will 
utilize a 'Dedicated' WASP pool during the calculation. In this way, sanction 
sale costs etc. PLUS netback percentages can be applied. All equity deals 
combined with the 'Common' WASP pool where costs and prices are 
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aggregated by meter/well based on volume weightings. All deals actually go 
through the calculation in order determine margins. However, the calculation 
has been setup to ensure that third party, sanctioned sale and equity pools are 
calculated without interfering with each other. 

Pricing 

During the pricing period of the month of flow process, all monthly index 
based prices are entered immediately when published. These are usually 
entered just before the beginning of the production month. Daily prices are 
keyed or otherwise entered throughout the month as they are received. When 
deals are setup the 'Pricing' function within the System is used to actually 
calculate a price for the deal ('Price' tab on deal detail screen). Each evening, 
for example, the 'Price All Deals' function of the System is started. This 
particular function will re-price all deals for the entire month (Price + WASP 
calculations). For months in the 'Sales' phase, the nominations are re-priced 
and recalculated. For months in the 'invoiced' phase, the pipe/field actuals are 
re-priced and recalculated. In addition, to this periodic process, an option exists 
within the System to price production months throughout a day, for example. 
Below, with reference to FIGS. 5A and 5B, the details related to fuel deal pricing 
are described. The ability of the present invention to incorporate a pricing 
technique such as one that is predetermined and implemented as a modular 
component of a larger software system, represents a significant point of novelty 
to which the present invention is directed. 

Invoicing 

During the invoicing period of the month of flow process, invoices for all 
of the sales for the previous month are produced. This represents the final step 
of the month within the system. All marketing individuals directly involved with 
the system for the month (controllers, dealmakers, etc.) are informed that the 
month is closing out and that invoices are now being produced. The status for 
the production month is changed to 'Invoiced'. A final nomination calculation is 



automatically done with the status updated. Accounting is then notified that the 
month has been completed. Invoicing reports are then run for the month and 
sent to the buyers by an accounting group, for example. Additional reports may 
be run (Sales By Pipe/Field, Purchase By Producer, Balancing Reports, 
Pipeline Statement Comparison Reports, etc.) by the accounting group for 
historical reference and reconciliation. 

Accounting 

During the accounting period of the month of flow process, an accounting 
group creates a revenue and journal entry feed to track receivables within an 
automated accounting system. This feed is created directly out of the system. 
Pipe/Field statements begin appearing beginning as early as the 15 th of the 
month. These statements represent volumes (by well/meter) for the previous 
month. Each accounting analyst is responsible for a specific set of pipe/fields. 
The volumes from these statements are entered as actuals into the system. A 
copy of the Pipe/Field statements are sent to the controllers for sign off. 
Accounting analysts then balance all of the purchase meter routing information 
for their respective pipe/fields. Accounting analysts then balance all of the 
sales meters for their respective pipe/fields. Accounting analysts then adjust 
any route volumes that cross pipe/fields to ensure interconnect balances are 
synchronized with pipe/field statements. Reconciliation and voucher reports 
can be run immediately after the production month is promoted to 'Accounting' 
phase (meaning accounting is finished with the month). These reports can then 
be sent to producers and/or entered into to accounting system. 

AN EXEMPLARY SYSTEM 

Referring now to FIG. 2, depicted therein is a diagram of an exemplary 
system in which client systems can access server system(s) to facilitate sale 
and distribution of fuel to customers in accordance with the business process 
(MFP) illustrated in FIG. 1. In particular, system 100 includes both server(s) 
102 and client systems 104. Additionally, a database management system and 
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corresponding data store 106 (hereinafter data store 106) is used to store fuel 
deal data and programs. Servers 102 are configured to be accessed via wide 
area network connections such as those facilitated via the Internet using open 
standards based protocols. Client systems 106 are configured with software 
contained on the appended compact disc to access servers 102 to engage in 
fuel deal operations such as those described with reference to the month of flow 
process (MFP) discussed above with regard to FIG. 1. 

In FIG. 2, client systems 104 may be configured as desktop computing 
systems, wireless computing clients, etc. to access servers 102. Such access 
may be made possible via applications and technology such as dbOvernet 
TCP/IP Socket Connection Middleware. Furthermore, servers 102 execute 
common SEServer applications and routines utilizing dbOvernet middleware 
technology. 

Within the processing space of servers 102, a database server system 
such as Microsoft's SQLServer V.7.03 (a DBMS engine) may be instantiated. 
Such a database management system may control data store 106 and may be 
configured in accordance with the present invention to maintain all fuel deal 
data in accordance with the present invention. 

The following discussion further defines an exemplary arrangement for a 
client-server system implemented in accordance with the present invention: 

SERVERS 

MS Windows NT 4.0 (SP6) may be chosen as a Network Operating 
System. 

The DBMS may be Microsoft's SQL-Server (V7.0x) - Service Pack 3. All 
data generated and processed within the context of the present invention is 
stored in MS SQL-Server database tables. Such data is accessed via direct 
SQL statements (embedded in Windows applications, stored procedures, 
forms, and reports). There are several database views that have been setup to 
access aggregated information (for performance and consistency). In addition, 
all of the critical calculations and time consuming procedures such as pricing 
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calculations, routing and rollover processes, etc. are written as Transact-SQL 
stored procedures and are contained on the attached compact disc and are 
discussed in further detail below in the embedded description-tables found 
herein. 

The SEServer may be a Middleware Server Application. The system 
database is accessed via middleware software that uses TCP/IP 
(SEServer/dbOvernet). All databases queried through the system come 
through this middleware component. 

SECrystal (Crystal Reporting Engine Server Application) may be used for 
server side reporting functions, etc. All reports for the system utilizes a remote 
Crystal Reporting engine (SECrystal) server. These reports are run and saved 
on the server for electronic distribution. Crystal Report (V8.0) from Seagate 
Software is used for this function. 

The SEFax (Fax Server Application) may be used for Fax distribution. 
This server application is responsible for sending out reports via a fax device. 
This software monitors a specific directory and when a fax file 'shows up' in the 

directory it will be faxed. 

The MAPI Mail Client Software provides Email (like Microsoft Outlook or 
Outlook Express). The MAPI compliant email service needs to be running on 
the same machine as the report engine server (SECrystal). This provides the 
ability to email reports (Correspondence) automatically. Options should be set 
on this client to automatically check (send/receive) at periodic intervals. 

The Adobe Acrobat Reader (Free PDF Viewer) is used to view reports, 
etc. The server machine that runs the SECrystal reporting server application 
needs to also have the PDF viewer installed. This is used in order to 'spool' to 
paper the print jobs. 

WEB ACCESS - NETWORK CONNECTIVITY 

All functions within the System are available over the Internet (with 
appropriate security). An individual wishing to log in to the system over the 
Internet will need to have appropriate application security to log in, the current 
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application executable program (as contained on the attached compact disc) 
and an ISP account. System administrators will need to furnish access site 
addresses (e.g., IP addresses, domain names, etc.) to users to address the 
systems provided by the present invention. 

CLIENT SYSTEMS 

Client systems may utilize a Client Operating System such as MS- 
Windows 95/98/Me; MS-Windows NT 4.0/2000. TCP/IP network protocol is 
required. Access to the server TCP/IP address (either LOCAL address or 
REMOTE address is required.) 

The system typically includes a single .EXE file(s) (plus approximately 8 
disk compression and graphics DLL's). The system application require only a 
single executable with a few DLL's to reside on the client machine. No other 
client configuration software is required. Upgrades to the client software are 
automatically done when a user first connects (logs in) through the Internet (on 
application startup). A version number check will be made if necessary and a 
new installation program and script are automatically downloaded. 

The Adobe Acrobat Reader (FREE PDF view) is used as a reporting 
system for files saved in the PDF 1.2 format. The default output for all reports 
on the system is the standard PDF format. This provides for email/electronic 
storage. In order to view reports this software (or other third party viewer with a 
file association to .pdf files) needs to exist on the client machine. 

The MAPI Mail Client Software is used for electronic mail 
communications. A MAPI compliant email service needs to be running on the 
client machine to be able to highlight a report and email it using the client email 
address list. This software is not required to run the but is required to take 
advantage of the system's ability to attach reports automatically within an email 
client. 

All client applications are written using DELPHI (V5+) including Delphi 3 rd 
party tools and procedures. Such applications and stored procedures and 
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identified 3 rd party tools are further described in the description-tables found 
below. 

DATABASES, AND CORRESPONDING 
ENTITY RELATIONSHIPS 

The various database tables that make up the system have been divided 
into nine (9) database subject areas. A subject area within this context is 
simply a logical aggregation of tables that support a particular business or 
system function. All of the database tables physically reside in the same 
database, but are not required to so reside. Only the documentation (as 
described below) has been constructed to illustrate these subject areas. It is 
also important to note that there are linkages (not documented here) between 
the various subject areas. 

These database subject areas and a description include: 
Companies: All company related tables (including company name, 
contact name, addresses functions, etc.). 

Contracts: All contract related tables (including contract provisions, 
notes, default standard reporting, etc.). 

Deals: All deal related tables (includes other costs, deal classes, 
correspondence, etc.). 

Volume Inventory: All volume inventory tables (includes production 
interests, daily monthly, calculated values, etc.). 

Operational: All tables that were created to support the system (software 
application). These tables include fax queue tables, printer definition tables, 
system logs, system messages, reporting tables, etc. 

Pipes/Fields: All pipe/field and meter/well related tables. 
Pricing: All tables within the system that are related to pricing (indices, 
price descriptions, baskets, etc.). 

Routing: All tables within the system that define routes (leg definitions, 
daily leg rates, monthly leg rates, nom and actual volume routing instructions, 
etc.). 
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Security: All security related tables within the system (includes user, 
logins, passwords, business functions, etc.). 

The above-described nine (9) logical database subject areas are next 
broken down into the actual tables that reside on the attached compact disc. 
For purposes of brevity, such database subject areas are broken down in the 
following tables: 



<THIS SPACE LEFT BLANK INTENTIONALLY> 
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Table Descriptions 



Below is an inventory of the various database tables that are utilized by the Energy Management System. This 
particular inventory indicates the current number of rows (through January 2001), the database (MS SQL Server) 
and the database subject areas (logical grouping of tables). 





Ref# 


Table Name 


Rows 


Database 


Subject 
Area 


Description/Comments 


















Companies 
Subject Area 




I 


I 








1.0 


j Address 


1,384 


SQL Server 


Companies 


Contains record entries for each address for ait 
companies and contacts within companies 
(multiple address types per company and/or 
contact). 




2.0 


Company 


1,242 


SQL Server 


Companies 


Contains a record entry for each company in 
the database. Information on this table 
includes company name, fax, phone and 
primary address reference identifier. 




3.0 


Contact_Grotip 


908 


SQL Server 


Companies 


Contains a record entry for each contact group 
relationship. This is the mechanism for 
grouping company contact individuals.. 




4.0 


ContacLGroupNames 


8 


SQL Server 


Companies 


Contains a record entry for each contact group 
name. 




5.0 


ContactFunction 


997 


SQL Server 


Companies 


Contains a record entry showing the contact to 
function relationships for a given company. 




6.0 


Contacts 


3 t 347 


SQL Server 


Companies 


Contains a record entry for each individual 
contact in the database. Includes full name, 
phone, fax, email, title, eta 


















Contracts 
Subject Area 




I 










o 


10.0 


K 


1,414 


SQL Server 


Contracts 


This table contains a record entry for each 
contract within the system. Bank information 
(ABA), Evergreen indicators, termination date, 
fixed pncing, etc. type data attributes are stored 
on these records. Each contract on the system 
has an associated parent 'company' (on the 
Company table). 




11.0 


KNetBack 


334 


SQL Server 


Contracts 


This table contains the netback pricing tiers 
associated with a given contract The parent 
table for this entity is the contract table (K). 
The netback pricing tiers are volume and date 
influenced. 




1Z0 


Knotes 


589 


SQL Server 


Contracts 


This table contains an optional record entry for 
each contract on the system, if there are no 
notes associated with a contract then the 
records are not inserted on the database. This 
provides the users with a free form area for 
keeping notes about a contract 




13.0 


Kproducts 


1,049 


SQL Server 




This table contains a reference to the products 
that are available (oil, gas, liquids, eta) for a 
given contract A product has to be associated 
to a contract before a deal can be setup using 
that contract for that product 




14.0 


KreportDefaults 


48 


SQL Server 




This table contains the entire standard 
reporting defaults for a particular entity. These 
reports include invoices, remittance, vouchers, 
deal confirmations, eta 




15.0 


KreportOvemdes 


•0 


SQL Server 




If a particular contract has its own unique 
standard reports then a reference to these 
unique reports is stored in this table for the 
contract in question. 
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Ref# 


Table Name 


Rows 


Database 


Subject 
Area 


Description/Comments . ■ ■ 


16.0 


Kservices 


1,068 


SQL Server 




This table contains a reference to the services 
that are available (marketing, end user, pass 
thru, eta) for a given contract A service has to 
be associated to a contract before a deat can 
be setup using that contract for that service. 














Deals . 

Subject Area - v 












20.0 


RdealClass 


6 


SQL Server 


Deals 


This table is a reference table that indicates the 
types of deal class options that are available. 
The context of each class is "^Purchases, 
1=Sales and 2-Both. The description field 
indicates the possible answers (but the 
rDeaiCJassA table contains the actual answers 
that can be applied). 


21.0 


RdealClassA 


23 


SQL Server 

I 


Deals 


This table is a reference table that indicates the 
possible deal classification options for each of 
the classifications defined in the rDealClass 
table. 


22.0 


RdealClassRules 


448 


SQL Server 


Deals 


This table contains record entries for every 
combination of deal classification answers 
( rDeaiCtassA table) Each of these 
classification options can have its own set of 
calculation rules/etc associated with it 


23.0 


Eng»ne_Master 


39,149 




Deals 


This table contains a record entry for each price 
entry effective date (header record). 


24.0 


Engine^MasterPrice 


79,244 


SQL Server 


Deais 


This particular table contains the individuat 
pricing components associated to a given deal 
on a given effective date (parent record is on 
the Engine_Master table). When the user of 
the Energy Management System enters a 
price, this is the table that gets updated. 


25.0 


Package 


65,351 


SQL Server 


Deais 


This table contains a record for each deal that 
has been setup on the system. Start Date, End 
Date, Deal Name, Contract, Company, etc. are 
specified on this table. 


26.0 


PackageCosts 


381 


SQL Server 


Deats 


This table contains entries for all 'other costs' 
associated with a given deal Each of these 
'other costs' will have unique STID's (deat or 
meter level) and have calculated 'Engine' 
records automatically generated (when a 
calculation runs). 


27.0 


PackageCorrespondence 


3,447 


SQL Server 


Deals 


This table contains entries for all of the 
electronic correspondence between the parties 
to the deal (deal confirmations, availability 
reports, remittance detail, vouchers, etc.). 


28.0 


PriceComponents 


19 


SQL Server 


Deals 


This table contain record entries for each 
component that can be set aside for pricing 
purposes (on a deal). Examples include 
•DAILY INDEX*, MONTHLY INDEX', 
'GATHERING', etc. These tags win be 
associated to each component of the price to 
allow for future queries and reporting. In 
addition, these tags wiH provide an audit trail of 
all pricing related information. 


29,0 


PriceDesc 


33,877 


SQL Server 


Deats 


This table contains a record for each deal 
description (or comments) within the system. 
These price description records (only 1 per 
deal) provide the users with a place to put free 
form text to help describe the price of the deal. 














Volume inventory t .* . - - ; - 
Subject Area 


i i i ii 
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Ref# 


Table Name 


Rows 


Database 


Subject 
Area 


Description/Comments — , . / 


30.0 


Engine 


280,970 


SQL Server 


Volume 
Inventory 


This table contains record entries for each 
calculated transaction that the system attaches 
to volume inventory items. Each transaction 
has a unique STID (transaction id) that are 
defined in the Engine JTransactionUst table. 
Indicators on this table determine the 
disposition of the transaction. 


31.0 


EngineJTransacttonUst 


36 


SQL Server 


Volume 
Inventory 


This table contains record entries that define all 
of the transactions that can be calculated and 
stored in the Engine table. The STID field is 
the unique transaction identifier. 


32.0 


Gasinv 


159,501 


SQL Server 


Volume 
Inventory 


This is the primary table were all volumes 
(nominated and actual) are maintained This 
table contains the header record entries that 
shows by month, company, transaction, 
pipe/field & meter/well the nominated volume 
and the estimated actual volumes. References 
to price types, contracts, eta are stored on 
each record. 


33.0 


GaslnvD 


4,145,617 


SQL Server 


Volume 
Inventory 


This table contains the detail (DAILY) 
nominated and estimated actual volumes for 
the Gasinv table. 


34.0 


Prodlnterest 


7,999 


SQL Server 


Volume 
Inventory 


This table contains a record that lists the 
production interests that are held for a given 
meter/well and contract (with date 
effectiveness). 


35.0 


ProdPkg 


4,080 


SQL Server 


Volume 
Inventory 


This table contains a record that indicates (by 
month) the contract and the deal ID of a deal 
that was generated automatically within the 
'Availability' (equity purchase deal creation) 
area of the system. 


36.0 


ProdSum 


39,296 


SQL Server 


Volume 
Inventory 


This table contains records that indicate (by 
month and meter/well) the gross mmbtu's and 
the Btu factors. 


37.0 


ProdVol 


44 t 187 


SQL Server 


Volume 
Inventory 


This table contains record entries (by month 
and meter/well) which show the receipt and 
delivery mmbtu's per day. 














Operational - ..V,/ ; v; , 
Subject Area. " ~ 














40 


AppiicationMessages 


55,882 


SQL Server 


Operational 


This table contains a 'rolling' 7 day listing of aU 
application messages (such as those that are 
displayed to the console during a calculation). 


41.0 


ExceptionCategones 


8 


SQL Server 


Operational 


This table contains record entries to hold ail of 
the exception 'reasons' that will be used 
whenever an exception even occurs. There 
can be multiple types of exception categories. 


42.0 


ExceptionUst 


2,171 


SQL Server 


Operational 


This table contains entries for the actual 
exception events that get logged by the system 
These represent an audit trail of non-normal or 
error type information. This table is linked to 
the ExceptionCategones table because each 
exception event (in this table) requires a reason 
category. 


43.0 


LogTabfe 


4 


SQL Server 


Operational 


This table is used for debugging purposes only 
and is not used in any screens or reports. 


44.0 


PrinterOef 


6 


SQL Server 


Operational 


This table contains a record for each available 
printer (including driver and port). ! 
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Ref#- 


Table Name 


Rows - * t&ass 


Subject 
Area 


Description/Comments ^ v - - * 


45.0 


RgasMonth 


1,440 


SQL Server 


Operational 


This is a reference table that contains a record 
for each month from 1/1980 thru 12^099. In 
addition, this table also contains the status and 

Siaius upuoic acvfuciivv iiuiiiuoi iui uic 
nartit-itiar mnnth This status is userf in order to 

enable/disable certain functions within the 
Energy Management System throughout the 
month. 


46.0 


RGasMonthStatus 


1,873 


SQL Server 


Operational 


This represents a historical audit table that will 

Be upuaiou every wire uio nwiiuiiy smius iui <i 

given production month is modified (via triggers 
on the RgasMonth table). This provides a 
mechanism of identifvina who & when the 
changes were for the status, over time. 


47.0 


SEMessages 


1,251 


SQL Server 


Operational 


All system messages are stored in this table. 


48.0 


SEAudit 




SQL Server 


Operational 


This table contains record entries for those 
events that are deemed 'audrtabte'. Some 
examples inciuas Login events, MCtuaiizaoon 
balancing events, standard report submission 
events, etc. 


49.0 


SElmages 


2 


SQL Server 


Operational 


This table contains record entries that contain 
graphic images for the screen and reports used 
throughout the system. 


50.0 


SELocations 


3 


SQL Server 


Operational 


This table contains record entries that define 
the server paths (network folder locations) 
where certain key correspondence items are 
found. For example (report location, deal 
correspondence, etc). 


51.0 


SEProcessingCodeTypes 


15 


SQL Server 


Operational 


This table contains the Type* codes to the 
reference table 'SEProcessingCodes'. An 
example is the type code of 'CONTRCTPRD* 
which describes a reference code for contract 

prOuuCES. 


52.0 


SEProcessingCodes 


143 


SQL Server 


Operational 


This table contains reference codes for various 
fields used throughout the Energy Management 

System. 


53.0 


SERptsExecutedStats 


19,117 


SQL Server 


Operational 


This table contains record entries that lists the 

***art anH onH riot a otiH tlniaa frtr all Mmitt tHttt 

start ana ena uaio ana wim Tar an reports umh 
were submitted. Thts provides statistics on 
how long to execute/etc 


54.0 


SERptsGroupltems 


218 


SQL Server 


Operational 


This table contains entries of each specific 
report that exists within a reporting tab (group) 

within a sn&riftr r&nofttna fntrfur fmtunnrvl 

Will II' 1 O 9f/W*IIV« lw|/WIWIt^5 IwlUQI ^^fllv^UI J y. 


55.0 


SERptsGroups 


36 


SQL Server 


Operational 


This table contains a list of all available 
reporting tabs (groups) within each reporting 
folder (category). 


56.0 


SERpts Item Detail 


123 


SQL Server 


Operational 


TViic tahln mntain* tK* li<tt rif aU avail oKIa 

reports within the system. 


57.0 


SERptsltemParms 


657 


SQL Server 


Operational 


This table contains record entries for each 

system. Options exist for substituting a 
different label name than actual parameter field 
name. 


58.0 


SERptsQueue 


5,667 


SQL Server 


Operational 


This table contains record entries for all 
'submitted' reports (report queue). When 
reports are automatically removed from the 
system the record is removed from this queue. 


59.0 


SERptsQueueDistribute 


7,855 


SQL Server 


Operational 


This table contains entries that dictate how to 1 
distribute the output of reports from the queue 
(fax, email, printer, eta). 


60.0 


SERptsQueueNotify 


276 


SQL Server 


Operational 


This table contains entries that indicate who 
(and if) individuals or groups have been not* 
that the report has finished. 


61.0 


SERptsSchedule 


0 


SQL Server 


Operational 


This table contains records that define spt 
schedules for the running of scheduled r- 
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Ref#- 


Table Name , ^ / 


Rows 


. Database 


Subject. . 
Area 


Description/Comments ? T^f. , v V ! 


62.0 


SERptsScheduledReports 


0 


SQL Server 


Operational 


This table contains record entries that define 
which reports to run as part-of specific 
schedules. 


63.0 


SERptsScheduledGroups 


0 


SQL Server 


Operational 


This table contains 'groups' for scheduling. 
This provides the ability to assign multiple 
individuals to a specific group and have the 
group belong to the schedule. 


64.0 


SERptsScheduledUserGfoup 
s 


0 


SQL Server 


Operational 


This is the actual table that contains the 
members within a schedule group. Each entry 
in this table defines the group. 


65.0 


SERpts Tables Used 


896 


SQL Server 


Operational 


This table contains documentation on what 
tables, views or stored procedures are used 
within each report. 














Pipes & Fields . > ^ 
I Subject Area 


1 












80.0 


Meter 


4,335 


SQL Server 


Pipes and 
Fields 


This table contains a record entry for each 
well/meter that has been setup on the system. 
The pipe/field, name, county and state are 
stored here. 


81.0 


MeterNotes 


935 


SQL Server 


Pipes and 
Fields 


This table contains a record for notes pertaining 
to meters/wefls. 


82.0 


PipeField 


372 


SQL Server 


Pipes and 
Fields 


This table contains a record entry for each 
pip/field defined on the system. The company 
and the pipe/field description are stored here. 


83.0 


MeterRates 


3,980 


SQL Server 


Pipes and 
Fields 


This table contains the entire pressure base, 
Btu factors by effective date for specific 
meters/wells. 


84.0 


MeterAllocations 


551 


SQL Server 


Pipes and 
Fields 


This table contains entries for the allocation 
information on the meter/well. This includes 
accounting cross-reference codes (id and 
deck). 














Pricing , , , . . * y^t^v * - , - 
Subject Area 














90.0 


GClndex 


142,268 


SQL Server 


Pricing 


This table contains record entries by Day for 
daily index prices AND/OR a single entry for 
monthly index prices (1** day of month for 
monthly indices). 


91.0 


IndexRef 


228 


SQL Server 


Pricing 


This represents the master table of all defined 
price indices within the Energy Management 
System. One record entry per index exists 
within this table. 


, 92.0 


IrtdexBaskets 


14 


SQL Server 


Pricing 


This table contains a record entry tor each 
index basket established on the system. These 
index baskets can be associated to sales or 
purchase deals just as normal indexes are 
associated to them. Simple averages are 
calculated with ail index items within an index 
basket 


93.0 


IndexBasketLink 


36 


SQL Server 


Pricing 


This table contains the actual indices that are 
currently associated with an index basket An 
unlimited number of indices can exist in a 
basket. A simple average of all the prices 
within the basket is used. 














Routing * , k , . „ ^ ^ , v . , J - ^ . ^ ¥ ; V ' 
SublectArea ^. 














101.0 


LegRef 


4,226 


SQL Server 


Routing 


This table contains record for each unique 
transportation leg (meter-to-meter) on the 
Energy Management System. 
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Ref# 


Table Name 


Rows 


Database 


Subject' < * 
Area 


; Description/Comments *yg/^^v. >t ^ y - 


102.0 


Leg 


57,830 


SQL Server 


Routing 


This table contains a record for each active leg 
within a given month. Nomination and actual 
rates that the teg utilizes during the month are 
posted on each record. These rates are used 
with the actual routing instructions (LegOetail 
table). 


103.0 


LegD 


0 


SQL Server 


Routing 


This table contains OPTIONAL entries for any 
dairy leg rates that need to be utilized within a 
given month. Daily rates are checked PRIOR 
to the monthly rates (on the Leg table) when 
setting up the actual routing instructions 
(LegDetail table). 


104.0 


Leg Detail 


1,716,695 


SQL Server 


Routing 


This table contains the detail routing 
instructions for all volumes purchased all the 
way through the sales points for that particular 
volume. Nomination AND actual routing 
instructions are stored for each meter/well mat 
had volume activity during the month. All 
volumes sold can be tracked back to originating 
purchase points. 


105.0 


WASPResovedRouting 


34,304 


SQL Server 


Routing 


This table contains record entries that show the 
pool level calculated totals for all receipt and 
delivery points within the system. 'Common', 
'Dedicated' and 'None' pools are aggregated 
and the total numbers stored here. Only 
'Common' pool volumes and dollars represent 
the totals from more than one purchase point 
(shows weighted average pricing based on 
volumes purchased and/or transported). 














Security „ , . 

Subject Area *> " * ' - ' ^ h - 














110.0 


GCUser 


27 


SQL Server 


Security 


This table contains a single record entry per 
unique user (employee) on the system. The 
character based (up to 12 character) login ID 
AND an internal user id (integer) are unique 
keys to this table. 


111.0 


GCButton 


58 


SQL Server 


Security 


This table contains records that represent the 
system functions that have specific security 
rules associated with them on the system. For 
example a system function of 'DEALS' has 
been setup in order to define security ! 
relationships between users (GCUser table) 
and this function. 


112.0 


GCSecunty 


1,548 


SQL Server 


Security 


This table stores the relationships between 
users on the system (GCUser table) and the 
system function that they have access too 
(GCButton table). A specific access privik* 
stored for each of these relationships (lf^- 
READ ONLY, READ/UPDATE* 
READ/UPDATE/DELETE or SUPERS 
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Referring now to FIGS. 3A-3N, depicted therein are entity relationship 
diagrams that illustrate data relationships among tables and corresponding 
table entries used to implement the systems and methods that carry out the 
business process illustrated in FIG. 1. The database tables used logically 
categorized above into the above-identified nine (9) subject areas are 
maintained within data store 106 (FIG. 1), and are included among the files 
present on the attached compact disc, and are further defined in detail in FIGS. 
3A-3N. Those skilled in the art will readily understand the data relationships 
among relational database tables as shown in FIGS. 3A-3N. Accordingly, for 
purposes of brevity, further comments about FIGS. 3A-3N have been omitted. 

In addition to the tables described and specified in the tables listed 
above, the following table illustrates an inventory of the various database views 
that utilized by the systems and methods provided by the present invention. 



<THIS SPACE LEFT BLANK INTENTIONALLY> 
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View Descriptions 



Below is an inventory of the various database views that are utilized by the Energy Management System: 



Ref# 


View Name 


Description/Comments ^ 


1.0 


V_SearchDB 


Provides a view to search the database stored procedures and triggers for specific text items. 
Used for assessing the impact of system changes. 


2.0 


VAccountingRevenueFeed 


Database view (3 select UNION) used for creating OGSYS journal and revenue receivable data. 


3,0 


VCompany 


Display of company information (name, address, etc.) 


4.0 


Vcontact_Accounting 


Display the accounting contact for a given company. 


5.0 


Vcontact Admin 


Display the administrative contact for a given company. 


6.0 


VcontacLControi 


Display the control contact for a given company. 




Refr 


View Name - ^ > : - 


Description/Comments: '^W*.^. '-'...^VwrV^;.- - 


7.0 


Vcontact_Production 


Display the production contact for a given company. This is the contact used ^Availability 
estimates/etc. 


8.0 


Vcontact_vo)confirm 


Display the contact responsible for confirming volumes within a given company. This is the 
contact used for volume confirmations in the 'Availability' phase. 


9.0 


VcontactF unction 


Display a list of all contacts for a given company along with their respective functions (accounting, 
volume confirmations, etc) 


10.0 


VContacts 


Display name and addresses for contacts. 


11.0 


VETlDJ3ates 


Display the engine start effective and end dates for a given engine transaction id (based on 
package). This view is used VERY LITTLE because of performance issues. 


16.0 


VgaslnvDJMomChg 


Display list of daiiy volumes where the nomination volumes are different between two successive 
days. 


17.0 


VKTermrnation 


Displays specific contract termination information. 


18.0 


VlegDetarl_MeterTotats 


Disqiay routing information summarized by meter. 


19.0 


VtegDetail_PipelineComparis 
on 


Display routing information in a format that is used for the pipe/field comparison report. Used for 
reconciling fuel, gathering, transport, pvr, etc to pipe/field statements. 


20.0 


VlegDetait PurchasePointTot 
ais 


Display routing information that shows total routing costs/etc for given purchase points (hop 0's). 


21.0 


VlegDetaiLSummary 


Displays routing information (summarized) for reporting purposes (purchase meters/wells only) 


22,0 


VlegDetail_SummarySales 


Displays routing information (summarized) for reporting purposes (sales meters/wells only) 


23.0 


VMeterAllocations 


This view is used to list the current meter/well allocations (based on effective date) for each given 
meter/well. These allocations are the accounting deck and purchaser id information, which can be 
different from month to month. 


24.0 


VMeterRates 


This view is used to list the current meter/well rates (standard pressure base, pipe/field pressure 
base, Btu factor, etc) for each given meter/well. These rates can be different from month to 
month. 


25.0 


VOurContact_Accting 


Display the current HEC contact for accounting information. 


26.0 | 


VOurContact Prod 


Display the current HEC contact for production information. 


27.0 


VPackageJnfb 


Display detail list of information concerning a package (includes contacts, names, phones, eta). 


28.0 


VPrevGasMonthStuff 


Displays current month volume totals versus previous month volume totals. 


29.0 


Vprod Confirm Letters 


Display contact information for use with correspondence on production volumes. Specifically used 
in the confirmation process in the Availability* production month phase. 


30.0 


Vprodlnterest 


Display a list of contracts and meters to confirm the production interests. This is used primarily in 
the 'Availability* production month phase. 


31.0 


VRequestProduction 


Display fist of production interest volume and meter information. This is used primarily in the 
'Availability production month phase and is used when sending out estimate reports to producers. ' 
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Once all software and data as described above has been properly 
installed on one or more server systems 102 and within one or more coupled 
(networked) client systems 104 as illustrated in FIG. 1, use and operation of the 
systems and methods provided by the present invention may be commenced. 
5 Such operations may be in relation to the general use application (Energy 
Management System - EMS) or the limited use/user/function application 
(Producer Control Console - PCC) provided on the attached compact disc. In 
either case, the present invention facilitates a client-server application 
environment that includes, among other things, a user interface that is pleasing 

10 to users and which permits easy and ready access to system functions and 
operations. Such a user interface may be a graphical user interface or GUI that 
is configured to permit a user to engage in window-operations to bring about 
database operations that affect fuel deal data and the like in accordance with 
the present invention. Such a GUI is illustrated by way of screen shots (images 

15 of computer monitor screens) that are used to permit generation of, 
manipulation of, reporting of , and all other system operations relating to fuel 
deals and corresponding fuel deal data. 

For example, reference is now made to FIGS- 4A-4Q which illustrate a 
data processing application running within a client system to facilitate at least 

20 some of the operations carried out to effect the business process illustrated in 
FIG. 1. FIG. 1, for example, represents an opening main menu screen through 
which a user may select "PERSONAL" operations related to setting up a 
personal profile to affect user-preferred presentation of data (e.g., name, screen 
colors, etc.). Additionally, a user may select "PRICE-INDEX" to affect fuel 

25 pricing and index related data. A user may select "COMPANY" to control lists 
of producers, and other related company entities. A user may select other 
options corresponding to the steps involved and described with regard to the 
MONTH OF FLOW PROCESS illustrated and described with reference to FIG. 
1. 

30 The other screen shots shown in FIGS. 4B-4Q further illustrate specific 

features of the GUI that has been designed to facilitate the implementation of 
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the systems and methods provided by the present invention. For the purpose 
brevity, further detailed comments related to such screen shots has been 
omitted. 

SYSTEM IMPLEMENTATION AND FUNCTIONALITY 

As noted above, the present invention utilizes stored procedures in the 
form of database management system procedures and functions which are 
executed server-side and client-side to facilitate the present invention's systems 
and methods. Listed in the following tables, is a detailed break-down of all the 
stored procedures, tools, and modules used to facilitate such systems and 
methods. The actual source code and instructions contained with in such 
procedures, functions, and modules is contained on the attached compact disc. 

STORED PROCEDURES 

Below is an inventory of the various database-stored procedures 
(procedures and functions) that are utilized by the systems and methods 
provided by the present invention. Each of the stored procedures and functions 
are written in the Transact-SQL dialect. All of the stored procedures are 
prefixed with "usp_" which stands for "User Stored Procedure." This provides 
an ability to differentiate those procedures bundled with the DBMS versus those 
created for the systems and methods provided by the present invention: 
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Stored Procedures 



Below is an inventory of the various database-stored procedures (procedures and functions) that are utilized by 
the Energy Management System. Each of these stored procedures and functions are written in the Transact-SQL 
dialect. Ail of the stored procedures are prefixed with "uspj which stands for w User Stored Procedure". This 
provides an ability to differentiate those bundled with the DBMS versus those specifically created for the EMS 
application. 



Ref# 


Stored Procedure Name 


Description/Comments - v. ~ 


1.0 


Usp_DaiJyCleanup 


This procedure is run everyday and is responsible for any cleanup activities (tike 
rotting aged messages off the ApplicationMessages table). 


2.0 


Usp_fGetCaiclndex 


Retrieves the weighted average pnce for a given volume item. This routine is 
invoked during the WASP calculation in order to obtain the price for the 
meter/well and post it to the Engine database table. 


3.0 


UspJGetlndex 


Retrieves the daily or monthly pnce index for a given day. Used during the 
pricing calculation routine. 


4.0 


Usp_fGetlndexBasket 


Retrieves and calculates the index amounts for the price lines whenever an 
index basket price variable has been entered. This particular function will return 
the average price (simple average) of ail indices within the basket for a given 
month/day. 


5.0 


UspJGetNetbackPercentage 


This function wilt return the actual netback percentage to be used for a given 
production month and contract When it calculates the netback it looks at 
volumes and tier instructions that have been setup on the contract The number 
it returns is the netback percentage to utilize. In addition, this routine brings 
back the specific percentage to use for the product being calculated (gas, 
liquids, oil, etc.). 
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Ref# 


Stored Procedure Name 


Description/Comments 


6.0 


UspJGetPradlnterestID 


This routine brings Pack the production interest information for e particular 
ownership interest. ~ 


7.0 


UspJGetProdPkg 


This procedure bnngs back the 'deal id' (if one already exists) when posting 
volumes through the 'Availability' screens. If a deal does not already exist (in the 
current production month) then a new deal is created and that ID is sent back. 


8.0 


UspJGetWASPIndicator 


This function accepts a deal id (package ID) as it's input. It then reads the 
OealCEass table and the rDeaiClass tab)e(s) to determine if this particular deal 
should be considered WASPabJe based on its classification scheme. The return 
values are either 'None\ 'Common' or 'Dedicated'. 


9.0 


UspjfGetWaspType 


This procedure will send back the WASP type field (GAS, OIL or LIQUIDS) when 
passed a specific product ID. This procedure is used during the calculation in 
order to determine which set of netback rules off a contract to use. 


10.0 


Usp_flsLastDay 


This procedure accepts a date and sends back the last date in a production 
month. 


11.0 j UspJLastUay 


This procedure accepts a date and sends back the last date in a production 
month. 


12.0 | UspJPipeContactlnfo 


This procedure, when passed a pipe/field id, will send back the specific contact 
information requested (like accounting contact, volume contact, etc.). 


13.0 ! Usp GasDayToGasMonth 


This function will return the production month to use for a given production day. 


14.0 j UspJ3etProductVolumeRound 


This routine will return the rounding precision necessary when calculating 
volume information for specify products (Oil calculates to 2 decimal places, Gas 
to zero, eta;. 


15.0 - Usp LinePrice 
! ~ 


This is the actual procedure that will calculate the Engine records for 3 given 
deal (volume related STtD 8 or 9 type records). 


16.0 


Usp_message 


This routine handles all of the 'progress' messages that are issued during the 
calculation, rollover, actualization, and etc. type events on the system. This 
routine will optionally post this information to the ApplicationMessages table for 
histoncal reference (audit). 


17.0 « Usp_jjActuaiize_BaiPurchases 


This is the main driver routine for Step 2 of 4 of the actualization process. 


18.0 ( Usp_j>Actualize_BalPurchasesCheck 

i 
I 


This routine will check to see if all of the meters/wells on a given pipe/field have 
been actualized. If not then it sends back a bad return code. All meters/wells 
are required to be 'checked* (actualized) prior to balancing of purchase routing 
points 


19.0 ' Usp_pActuaitze_Ba!PurchasesCIsar 

j 


This routine is the actual routine that wilt adjust all purchase meter imbalances. 
These imbalances are adjusted forward THROUGH the safes point based on 
nomination routing instructions (used as a map). 


20.0 i Usp_pActualize_BalSales 


This is the main driver routine for Step 3 of 4 of the actualization process. 


21.0 i Usp_pActualize_BalSalesCheck 


This routine will check to see if all of the purchase meters/wells routing balances 
(from step 2 of 4) are balanced. If any meter/well on the pipe/flerd is out of 
balance then this routine sends back a bad return code. All meters/wells on the 
pipe/field are required to be 'balanced' prior to balancing of the sales points. 


22.0 


Usp_j>Actualize_BalSafesClear 


This procedure is the final procedure invoked by the usp_pActualizeJ3alSaies 
main driver procedure. It is responsible for posting imbalance amounts to the 
internal clearing purchase or sales deals. 


23.0 | Usp__pActualize__BalSalesOver 

• 1 


This procedure attempts to reconcile any outstanding balances that result in 
OVER supplying of volume to a particular sale. Nomination information is used 
by this routine as a 'road map' on how to allocate this volume. 


24.0 


Usp_pActualize_BalSalesUnder 


This procedure attempts to reconcile any outstanding balances that result in 
UNDER supplying of volume to a particular sale. Nomination information is used 
by this routine as a 'road map' on how to allocate this volume. 


25.0 


Usp_pFifllndex 


This procedure will initialize the records within the GCtndex' table with daily 
entries (for daily indices) and monthly entries (for monthly indices). The monthly 
record entries are only on the first day of the month. 


26.0 


Usp jsFilllndexSingle 


This procedure will populate the 'GCtndex' table with a price index entry for a 
SINGLE index. 


27.0 


UspjDGaslnvD_Fill 


This routine initially populates the daily volumes on the GaslnvD table. These 
are initially populated with zeros (anytime a meter/well is added to a deal). 


28.0 . 


Uspj)GaslnvD_NomEOM 


This routine is used in the 'Availability' area of the EMS system and is used to 
take a given volume amount and propagate that volume amount to all days in 
the month. 


29.0 


Uso LogAudrtlnfo 


This routine is used to post record to the audit table within the system. 


30.0 


Usp_j>PackageRevision 


This routine is used to increment the revision number field on the deal. Certain 
types of changes to a deal will automatically increment the revision number on a 
deal and this update is done through this routine. 
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Ref #- 


Stored Procedure Name 


Description/Comments 


31.0 


Usp_pPostClassrfication Rules 


This procedure is executed (usually by triggers on the rOealQass and 
rDeatCIassA tables). It can be executed stand-alone. This procedure will 
ensure that a record is created in the rDeaiClassRuies table for every 
combination of deal classification codes (dcA values on the rOealClassA table). 


32.0 


Usp_ProdPush 


This routine is used in the 'Availability 1 phase of EMS and is used to initially 
populate a particular month with ownership interest information, by meter/well. 


33.0 


Usp_pPushMeter 


.This routine is used in the 'Availability' phase of EMS and is used to populate a 
single meter/well ownership interest to its respective deal (package) and volume 
inventory item (Gaslnv/GaslnvD). 


34.0 


Usp_pRouteBuiidLegHistory 


This routine creates the Leg' records for a given meter/weil. When a new 'route' 
(LegRef) is defined on the system then this routine will get invoked to initially 
seed the 'Leg' table with entries in order to allow routing. 


35.0 


Uspj^RouteBuildLegHistoryAli 


This routine gets invoked when a production month is initially opened to the 
'Sales' phase. All ACTIVE meters and legs will have their respective 'Leg' table 
records populated for that production month by this routine. 


36.0 


Usp _pRouteCopyLegHistoryActuals 


This routine gets invoked when the status of a production month changes from 
'Sales' to 'Invoiced*. All nomination routine instructions (in the 'LegDetaii* table) 
are then copied by this routine. This provides the mechanism to have actuals 
different than noms while preserving the nom instructions. 


37.0 


Usp_pRoutePostChange 


This procedure gets invoked whenever a change to a specific route is requested 
(i.e. modifications of volumes between hops). 


38.0 


Usp_pRoutePostDeailnfo 


This procedure gets invoked to 'seed* the 'LegDetair table with routing 
information. This is invoked when new meters/wells are added to deals. 


39.0 


Usp_pRoutePostDealInfoVols 


This procedure gets invoked to populate the specific volumes on each of the 
'LegDetair entries (daily) for deal inventory items. 


40.0 


Usp_pRoutePostDelete 


This procedure gets invoked whenever a deletion is requested on the routing 
(LegDetail) information. 


41.0 


Usp_pRoutePostLegRates 


This procedure gets invoked in order to post the rates (fuel, pvr, transport, 
gathering, etc) to each of the 'LegDetail' records in the database. Daily rates 
(LegD table) overrides monthly rates (Leg table) and this procedure ensures that 
priority. If a rate gets changed for a leg this routine gets invoked to update ail 
existing routes (LegDetail) records. 


42.0 


Usp_pRoutePostSale 


This procedure gets invoked in order to post volume (route it) to a sales item (in 
the LegDetail table). 


43.0 


Usp_pRoutePostTransport 


This procedure gets invoked in order to post volume (route it) to a transportation 
point (in the LegDetail table). 


44.0 


Usp_pRouteRemoveLegDetaiis 


This routine will remove any/all 'LegDetail' {routing instructions) when a 
meter/welt for a specific deal is removed. 


45.0 


gsp_pSERPT_GetAdditionalReportlnfo 


This routine is used by all of the 'standard* reporting procedures to obtain 
specific report fields needed when running a standard report 


46.0 


Usp_pSERPT_PostReportToCorrespondence 


This routine will post a 'PackageCorrespondence' table record to a particular 
deal that is affected by the 'standard' report being run. This routine is called by 
all standard report routines. 


47.0 


Usp_pSERPT_PostReportToOistribution 


This routine will post a report distribution request to the SERptsQueueDistribute 
table. This is either a request to kkin i tn , email or i-ma . 


48.0 


Usp_pSERPT_PostReportToQueue 


This routine is used by all of the standard report routines and will post an actual 
report request (queue item) to tne otrtptsuueue laoie. 


49.0 


Usp_pSERPT RunReportAvaitConfirms 


This routine is responsible for running the 'Availability* confirm reports. 


50.0 


Usp_pSERPT RunReportAvailEstimates 


This routine is responsible for running the 'Availability 1 estimate reports. 


51.0 


Usp j)SERPT_RunReportDeaiConfirm 


This routine is responsible for running the deal confirmation reports (from the 
deal detail screen on EMS). 


52.0 


Usp_pSERPT RunReportlnvoice 


This routine is responsible for running all standard invoice reports. 


53.0 


Usp _pSERPT RunReportRemrttance 


This routine is responsible for running all standard remittance reports. 


54.0 


Usp_pSERPT RunReportVoucher 


This routine is responsible for running all standard voucher reports. 


55.0 


Usp_pSERPTJ>etAParameterBoolean 


This routine is used by the standard reporting routines and converts Boolean 
parameters for posting on the report queue (SERptsQueue) table. 


56.0 


Usp_pSERPT_SetAParameterDate 


This routine is used by the standard reporting routines and converts date and 
date/time parameters for posting on the report queue (SERptsQueue) table. 


57.0 


Usp.pSERPT.SetAParameterDecimal 


This routine is used by the standard reporting routines and converts decimal 
(number) parameters for posting on the report queue (SERptsQueue) table. 


58.0 


Usp_pSERPT_SetAParameterlnteger 


This routine is used by the standard reporting routines and converts integer 
number parameters for posting on the report queue (SERptsQueue) table. 


59.0 


Usp_pSERPT_SetAParameterString 


This routine is used by the standard reporting routines and converts string 
parameters for posting on the report queue (SERptsQueue) table. 
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Ref* 


Stored Procedure Name, 


Description/Comments ^ 


60.0 


Usp_pSERPT_W?itchReport 


This routine ts used by the standard reporting routines and is-responsible for 
determining WHICH report to use. The default reports are in KreportDefauits 
table. However, any given contract can override the default (KreportOverrides 

table). 


61.0 


Usp_PSPrice 


This is the main pricing routine for the volume inventory items (regular 
purchases and sales). 


62.0 


Usp_PSPriceAH 


This ts the main procedure for calculating the pnces for a given month on a set 
of deals (volume inventory pricing, ST1D 8 & 9). Parameters to this stored 
procedure dictate the type of price to calculation (Nom or Pipe/Ptekl Actual and 
Sales versus Purchase, etc). 


63.0 


Usp_PSPriceAnyNewlnvojcesNeeded 


This routine is responsible for assigning new invoice and remittance numbers to 
the volume inventory table (Gastnv). If new metens/wells (volume entries) get 
entered during the actualization process then this routine will ensure they are 
assigned unique numbers. 


64.0 


Usp_PSPriceAssignlnvoiceNo 


This routine assigns invoice numbers to all sales deals when the production 
month is promoted to the 'Invoiced' phase. 


65.0 


Usp_PSPriceAuto 


This procedure run everyday and checks for any production month either in the 
'Sales 1 or the Invoiced* phase. If any production months are within these 
phases then this procedure will invoke the calculation routine 
(usp__p$PriceAutoMonth) for them. 


66.0 I Usp_PSPriceAutoMonth 


This ts the main driver routine for the calculation of an entire month. 


67.0 


Usp_PSPriceComponentsCheck 


This procedure will automatically insert system generated price components (like 
WASP or Netback Percentage) to the Engine Jvlaster table. It is invoked by the 
usp_PSPricel procedure when calculating prices on a deal for a given month. 


68.0 


Usp^PSPriceCost 


This is the routine that calculates the 'Other Cost* entries and posts calculated 
results in the Engine table. 


69.0 


Usp_PSPnceCostAll 


This is the main driver routine for looping through all of the Other Costs' in a 
given month and invoking the usp_PSPriceCost routine for each one. 


70.0 


Usp.PSPriceCreateActuatEntries 


This procedure copies the pricing entries setup on each deal 
(Engine_MasterPrice) from nom to actuals. 


71.0 


Usp.PSPriceMarkActualAdjustments 


This procedure gets invoked by the calculation routine to marie any volume 
inventory item (Gaslnv) whenever a difference is detected between nominations 
and actuate. 


72.0 


Usp^PSPricePopulateEngme 


this procedure will populate the Engine table FROM the £ngine_Master table. 
For daily index price entries this procedure will automatically propagate the daily 
index price to all days of the month where there is a volume (at least until a new 
pricing entry is found). Only volume entries are populated here (STID 8 & 9). 


73.0 


Usp_.PSPriceTransportAfl 


This routine calculates all of the transport costs for a given production month. 
These transport costs (and volumes) are posted In the Gaslnv (pricetype=3) 
table and deals are posted (if needed). These deals are tagged with the specific 
transport contract 


74.0 


Usp.PSPriceWASPCalc 


Determines and resolves all wasp 'Common' and 'Dedicated' pools. Dedicated 
pools are sanctioned sales. This is the main driver procedure for the wasp 
portion of the calculation. Third party (pool - 'None') are also processed within 
this procedure but not for the intent of obtaining a price for them, totals used 
primarily for profit margin reporting. 


75.0 


Usp_PSPriceWASPCalcResoiveDriver 


This is the main driver component for driving the WASP calculation. 


76.0 


Usp_PSPriceWASPCaicResolveN 


Traces back sales totals from all sales meters back to their originating purchase 
points. The table updated here is the WASPResofvedRouting table. The 
'LegDetaiT table Is used extensively in this calculation. This is a highly 
ITERATIVE process. 


77.0 


Usp.PSPriceWASPCaicResorveSalesN 


This procedure creates the entries tn the WASPResolvedRouting table and 
posts original sales volumes and amounts. This is done just prior to the routine 
that resolves these sales totals back to the purchase points. 


78.0 


Usp.PSPriceWASPCalcSalesN 


Sums ail WASPable sales by sales meter into the WASPSalesMeterTotais table. 


79.0 


Usp_PSPnceWASPCIearMonth 


This routine runs when a production month is promoted to 'Completed* phase. 
Any volume inventory items (Gaslnv and/or GaslnvD) or routing items 
(LegDetail) that contain zeros are removed so that only relevant information is 
stored in the database for historical purposes. 


80.0 


Usp.PSPriceWaspDivieOutProceedsN 


This procedure is the main procedure that will distribute the proceeds from those 
deals that have been designated to have their respective proceeds distributed 
via the 'Financial Overrides* setup on the deal. 


81.0 


Usp_ProdVotSet 


This routine is used in the 'Availability' phase to setup the ownership interest on 
a particular pipe/field and meter. ProdSum and ProdVol tables for the current 
production month are populated with this procedure. 
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oiOrBu rrocdjiirt; name 


wcscnpuon/Lroiiiiiivnis — 


82.0 


Usp_ProdVolSetAll 


This routine is used in the 'Availability' phase to setup the ownership interest on 

sit nina/fidric anH matare Thtc mtiHno inuftlrae fhfi itcn Df\rtHV//ll^o+ mtitino fnr 
all pipC/IfClUO dflVJ 1 ilClCJ b. 1 nia lUUMIlC HlVUMSB UIC UOfJ^ ~TUU VUIOCI IUUUI1B IUI 

each meter/well in the loop. 


83.0 


Usp_PSRollover 


This routine gets invoked when a production month goes from 'Availability' to 

oaies anu 15 responsiuie Tor copying ueai ihtuii riauun muiiui~iu~munui. 


84.0 


Usp_PSRolloverPopActuals3 


This routine gets invoked by the usp_PSRollover routine and is responsible for 
populating noms with previous 3 months actuals numbers (pnmarify used for 
Oil). 


85.0 


Usp_PSRolloverPopNoms 


i nis routine gets invoKeo oy tne usp_r©r\OHOver routine ana is responsioie ror 
populating noms with previous months nom numbers. 


86.0 


Usp_pStatusChanged 


This routine gets invoked anytime the production month status is changed 
(lnitial,Availability,Sales,invoiced^ccounting,Completed). Other routines are 
invoked depending on the from and to status for the production month. 


87.0 Usp_w/ 

i 
1 

i 


Any stored procedure that begins with Usp_w_ has been setup as a one time 
only procedure that is used to correct any database items/eta These 
procedures can be permanently deleted and have no impact on existing 

functions within EMS. 



Application Software 



Technical Skill Set Required 



Support and maintenance of the Energy Management System requires the following technical skill set. 



Ref# 


Skill Set 


Used For.,. 


1.0 


SQL-Server (T ransact SQL) 


All data is stored in MS SQL-Server database tables. This data is accessed via direct SQL 
statements (embedded in windows applications, stored procedures and reports). There are 
several database views that have been setup to access aggregated information (for performance 
and consistency). In addition all of the critical calculations and time consuming procedures (like 
the main EMS calculation, routing and rollover process) are written as Transact-SQL stored 
procedures (and documented in this manual). 


2.0 


Delphi (V5 +) 

(includes Delphi 3* party tools) 


All client applications are written using this particular RAD tool.' In addition to knowing the 
standard components that come with this tool, any of the 3* party tools (documented in this 
manual) are used extensively. See the 3 m party tools listed in the 'Tools Utilized* section for more 
details. 


3.0 


Crystal Reports (V8.0) 


All reporting within EMS is done utilizing this tool from Seagate software. 



Client, Server Appucations w/Tools Utilized 



This particular section contains the high level documentation relative to the Energy Management System software 
application. Each item documented is uniquely numbered to aid in reviews and/or future modifications. 



Ref# 


Item 


Response 


Comments 


1.0 


Client Application 


Energy Management 
System 


The Energy Management System is written in Delphi 5 
(service pack 3 applied). Third party controls and 
components were used in the development See other 
areas of this matrix for 3 rt party toots utilized. 


2.0 


Client Application 


Producer Control 
Center 


The Producer Control Center is written in Delphi 5 (service 
pack 3 applied). Third party controls and components were 
used in the development See other areas of this matrix for 
3 rd party tools utilized. This application provides a restricted 
view of information specific to the company/contact that is 
running the application. The data viewed is the same data 
that is maintained in the EMS system. 


3.0 


Server Application 


Software Experts, inc. 
SECrystal (V8.00) 


All reporting done within EMS utilizes Crystal reports. This 
server application runs and stores all output reports for the 
system. Besides storing an electronic copy of the report, 
this server can distribute to a printer, fax folder OR an email 
address if instructed by the EMS application. 


4.0 


Server Application 


Software Experts, Inc. 
SEFax (V2.00) 
(outbound faxing) 


Some output reports (from SECrystal) are designated to be 
faxed. This software is responsible for faxing all of the 
reports that were designated by EMS to be faxed. 
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Ref# 


Item 


Response 


Comments- —v^- — - ~ 


5.0 


Server Application 


Software Experts, Inc. 
SEServer (V2.00g) 
(database request server) 


All database requests for the Energy Management System 
AND the Producer Control Center go through this database 
server component. This server application typically runs on 
the same machine as the actual database. 


6,0 


3 ro Party Tool/Library 


Adobe 

Acrobat Reader (V4.0 +) 


This free tool is used to view reports from EMS. The default 
for all reports is to print them to a PDF format This output 
format is 'overrideable' by the user when the report is 
submitted. Other formats like Excel, Word, Text, eta are 
also supported. 


7.0 


3" Party Tool/Library 


Seagate Software 
Crystal Reports (V8.00) 


All reports are written using the Crystal reporting tool from 
Seagate Software). In addition, the report server 
(SECrystal) utilizes the main Crystal reporting FREE runtime 
libraries to run these reports for all EMS client requests. 


30 


3 ro Party Tool/Library 


Dalco Technologies 
DbOvernet (V2..00) 


Delphi VCL components that provide internet (TCP/IP) 
access. The SEServer application utilizes this middleware. 


9.0 


3 ro Party Tool/Library 


TurboPower Software 
Asynch Pro (V3.04) 


The SEFax fax server application utilizes this 3" party 
Delphi VCL component list for sending and/receiving faxes. 
The SECrystal reporting server application uses this library 
to write out 'fax ready* files. 


10.0 


3 ra Party Tool/Library 


TurboPower Software 
Orpheus (V3.08) 


Many of the online screens for all client and server 
applications utilize the Orpheus controls for screen grid lists, 
combo boxes, eta The server applications were written with 
this tool set also. 


11.0 


3™ Party Tool/Library 


TurboPower Software 
SysTools (V3.02) 


Many of the online screens for all client and server 
applications utilize the SysTools components for string 
manipulations, spawning tasks, eta 


12,0 


3 W Party Toot/Library 


Woll2WoJl Software 
InfoPower 2000.17 


Many of the online screens for all client and server 
applications utilize these controls for screen grid lists, 
combo boxes, eta The server applications were written with 
this tool set also. 


13.0 


3™ Party Tool/Library 


inner Media-Software 
Dynazip (V4.00) 


These are Delphi software components that are for 
compression/decompression of files to and from the server. 
This is used by both the client and server applications. 


14.0 


3 ra Party Tooi/Library 


Public Domain 
TEmail (V2.10) 


This is a Delphi software component and is used by the 
client and server applications. It is responsible for the email 
interface. 


•15.0 


3 ra Party Tool/Library 


TMS Software 
TwebUpdate(V1.00) 


This is a Delphi software component that provides for 'over 
the internet automatic software upgrades. The client 
applications each utilize this component 


16.0 


3 ra Party Tool/Library 


Skyline Software, Inc. 
ImageUb Suite (V5.00) 


These are Delphi software components that provide for 
graphic images displayed within the application. In addition, 
this software provides scanner input capabilities. 



Client Applications, Module List/Descriptions 



This particular section contains the high level documentation relative to each software application module within 
the Energy Management System, Each item documented is uniquely numbered to aid in reviews and/or future 
modifications. The application reference listed below will either indicate EMS (Energy Management System) 
and/or PCC (Producer Control Center). This shows the level of interoperability between these two client 
applications. All of these modules are written in Delphi (Object Pascal, (Visual)). 



Ref# 


Module Name 


Module Type 


Application 


Description/Comments 


1.0 


DBAddress 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the Address ('Company and Contact 
Addresses') table. 


2.0 


DBCommonDatabase 


Data Module 


EMS 
PCC 


This module is responsible for setting all of the common 
properties for ail other data modules within the system. 
Prior to invoking a query, all other database modules will 
invoke methods within this module to set communication 
ports, maximum number of records, eta This module also 
stores the actual user id and contains methods for 
accessing this field. 
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Ref # 


MnrinlA NfllllA 


Module Type 


A nnf iftation 


Description/Comments ^ — . 


3.0 


DBCommonFileOperations 


Data Module 


EMS 
PCC 


This module handles all of the 'fiat file 1 operations 
(compressing/decompressing/etc.) that is involved with the 

annlimtinn*; Anv fpmnnrarv files that need to he created 

are also controlled by this data module. 


4.0 


DBCompany 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 

mmnnn&ntK fnr the Pftmnanw f finmnanv Information'^ 

table. 


5,0 


DBContactFunctton 


Data Module 


EMS 

DPP 


This module contains all of the database communication 
c^rnporicnis tof ine v^oniaciruncuuri \ rwrers wiinin intstr 

respective companies that contacts play") table. 


6.0 


DBContacts 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the Contacts ('Individual contacts within 
companies') table. 


7.0 


DBContactGroup 


Oata Module 


EMS 
PCC 


This module contains all of the database communication 
components for the ContactGroup (Links contacts to 
groups they may be affiliated with) table. 


8.0 


DBContact_GroupNames 


Data Module 


EMS 


This module contains alt of the database communication 
components for the ContactJ3roupNames (table contains 
a record for each group within the system) table. 


9.0 


DBEngine 


Oata Module 


EMS 


This module contains ail of the database communication 
components for the Engine (contains transaction records 
for each volume inventory transaction item associated with 
the deal) table. 


10.0 


DBEngineJtfaster 


Data Module 


EMS 


This module contains ail of the database communication 
components for the Engine_Master (User enterable pricing 
area 'header* record) table. 


11.0 


OBEngine JAasterPrice 


Data Module 


EMS 


This module contains aJI of the database communication 
components for the Engine_MasterPrice (User enterable 
pricing area 'detail' records (price tags)) table. 


12.0 


DBEngine.. TransactionList 


Data Module 


EMS 


This module contains all of the database communication 
components for the EngineJTransacb'onUst (transaction 
descriptions) table. 


13.0 


DBExceptionCategories 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the Exception Categ o hes ('Reasons for 
Exceptions') table. 


14.0 


DBExceptionList 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the ExceptionList ('Actual Exception 
Events) table. 


15.0 


DBGaslnv 


Data Module 


EMS 


This module contains all of the database communication 
components for the Gaslnv (Volume inventory 'header 1 ) 
table. 


16.0 


DBGasInvD 


Data Module 


EMS 


This module contains alt of the database communication 
components for the GaslnvD (Volume Inventory Daily 

'detail'} table. 


■ 17.0 


DBGCButton 


Data Module 


EMS 


This module contains all of the database communication 
components for the GCButton ('Business Functions 1 ) 
security table. 


18.0 


DBGCJndex 


Data Module 


EMS 

DPP 


This module contains alt of the database communication 
components lor me ooinasx luaiiy & Moniniy r*nce 
Indices) table. 


19.0 


DBGCSecurity 


Data Module 


EMS 

PCC 


This module contains ail of the database communication 
components tor ine uooecurny (oecumy Auinonzaiions) 
for the applications. 


20.0 


DBGCUser 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the GCUser (User Profiles) table within the 

annltcatinrrc 


21.0 


DB Images 


Data Module 


EMS 


This module contains all of the database communication 
components for the SEImages (company logos, eta) table 
within the application. 


21.0 


DBtndexBasketUnk 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the IndexBasketUnk (Links actual indices 
to a particular basket) table within the application. 


22.0 


DBJndexBaskets 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the IndexSaskets (Grouping of indices to 
be used in a 'simple* averaging calculation) table within the 
application. 
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Ref# 


Module Name 


| Module Type 


Application 


Description/Comments ' - 


23.0 


DBIndexRef 


| Data Module 

t 
i 

! 


EMS 
PCC 


This module contains all of the database-communication 
components for the IndexRef (Each pride index within the 
system contains a record entry here) table within the 
application. 


24.0 


DBK 


j Data Module 

s 


EMS 


This module contains all of the database communication 
components for the K (Contracts table within the 
application). 


25.0 


DBKNetBack 


| Data Module 

i 
i 


EMS 


This module contains all of the database communication 
components for the KNetBack (Contracts Netback 
Percentage Tiers) table within the application. 


26.0 


DBKNotes 


f Data Module 

f 


EMS 


This module contains all of the database communication 
components for the KNotes (Contract Notes) table within 
the application. 


27.0 


DBKProducts 

f 


j Data Module 

I 


EMS 


This module contains all of the database communication 
components for the KProducts (products that are available 
within contracts) table within the application. 


28.0 


DBKReportDefauJts 


i Data Module 

S 
i 


EMS 


This module contains all of the database communication 
components for the KReportDefaurts (standard report 
defaults) table within the application. 


29.0 


DBKReportOvemdes 


] Data Module 

! 
i 


EMS 


This module contains all of the database communication 
components for the KReportOverrides (standard report 
overndes for a contract) table within the application. 


30.0 


DBKServices 


Data Module 


EMS 


This module contains all of the database communication 
components for the KServices (services that are available 
within contracts) table within the application. 


31,0 


| DBLeg 


Data Module 


EMS 


This module contains all of the database communication 
components for the Leg (available routes and rates for the 
production month) table within the application. 


32.0 


DBLegD 


Data Module 


EMS 


This module contains all of the database communication 
components for the LegD (available DAILY routes and 
rates for the production) table within the application. 


33.0 


DBLeg Detail 


Data Module 


EMS 


This module contains alt of the database communication 
components for the LegDetail (specific routing instructions 
for all volumes purchased and sold) table within the 
application. 


34.0 


DBLegRef 


Data Module 


EMS 


This module contains all of the database communication 
components for the LegRef (master list of routes and rates) 
table within the application. 


35.0 


DBLocations 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for SELocations (locations) table within the 
application. 


36.0 


DBMessages 


Data Module 


EMS 
PCC 


This module contains alt of the database communication 
components for the SEMessages (system messages) table 
within the application. 


37.0 


DBMeter 


Data Module 


EMS 


This module contains all of the database communication 
components for the Meter/Well table within the application. 


3S.0 


DBMeterAIEocations 


Data Module 


EMS 


This module contains ail of the database communication 
components for the MeterAltocations (ownership interests 
in volume from a meter/well) table within the application. 


39.0 


DBMeterNotes 


Data Module 


EMS 


This module contains all of the database communication 
components for the MeterNotes table within the 
application. 


40.0 


DBMeterRates 


Data Module 


EMS 


This module contains all of the database communication 
components for the MeterRates (pressure base, Btu factor, 
etc from a meter/well) table within the application. 


41.0 


DBMiscQuenes 


Data Module 


EMS 
PCC 


This module contains all of the miscellaneous queries that 
were created to enable views of various tables within the 
application. 


42.0 


DBPackage 


Data Module 


EMS 


This module contains all of the database communication 
components for the Package (Deals) table within the 
application. 


43.0 


DBPackageCorrespondence 


Data Module 


EMS 


This module contains all of the database communication 
components for the PackageCorrespondence (electronic 
copies of documents associated with deals) table within 
the application. 
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Ref# I Module Name 


Module Type 


Application 


Description/Comments 


44.0 


DBPackageCosts 


Data Module 


EMS 


This module contains all of the databasexx>mmumcation 
components for the PackageCosts ('Other Costs' 
associated with deals) table within the application. 


45.0 


DBPipeField 


Data Module 


EMS 


This module contains all of the database communication 
components for the PipeField (Pipe/Field information) table 
within the application. 


46.0 


DBPriceComponents 


Data Module 


EMS 


This module contains all of the database communication 
components for the PriceComponents (tags to associate to 
each portion of a price) table within the application. 


47,0 


DBPriceDesc 


Data Module 


EMS 


This module contains all of the database communication 
components for the PriceDesc (Deal free form price 
description) table within the application. 


48.0 


DBPrinterDef 


Data Module 


EMS 


This module contains all of the database communication 
components for the PrinterOef (printer definitions) table 
within the application. 


49.0 


I DBProcessingCodes 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SEProcessingCodes (reference code 
description) table within the application. 


50.0 


OBProcessingCodeTyes 


Data Module 


EMS 


This module contains all of the database communication 
components for the SEProcessingCodeTypes (type codes 
that classify sets of reference codes) table within the 

application. 


51.0 


DBProducerMessage 

! 


Data Module 


PCC 


This module contains aJi of the database communication 
components for the ProducerMessage (dynamic messages 
posted to producers) table within the application. 


52.0 


i DBProd Interest 


Data Module 


EMS 


This module contains all of the database communication 
components for the Prodlnterest (Availability royalty 
interests) table within the application. 


53.0 


DBProdPKG 


Data Module 


EMS 


This module contains all of the database communication 
components for the ProdPKG (Availability deal ID to 
ProdVol cross reference) table within the application. 


54.0 


DBProdSum 


Data Module 


EMS 


This module contains all of the database communication 
components for the ProdSum (Availability summary totals 
by meter/well) table within the application. 


55.0 


DBProdVol 


Data Module 


EMS 


This module contains all of the database communication 
components for the ProdVol (Availability detail owner 
interest totals by meter/weJI) table within the application. 


56.0 j DBrDealClass 


Data Module 


EMS 


This module contains all of the database communication 
components for the rDealClass (All of the available deal 
classifications) table within the application. 


57.0 


DBrDeaiClassA 


Data Module 


EMS 


This module contains all of the database communication 
components for the rDealClassA (all possible answers 
available to the deal class rules (rDealClass table)) table 

within the application. 


58.0 


DBrOeaiClassRules 


Data Module 


EMS 


This module contains all of the database communication 
components for the rOeafCfassRufes (aft rules associated 
with every combination of deal classification) table within 
the application. 




59.0 


DBrGasMonth 


Data Module 


EMS 
PCC 


This module contains ait of the database communication 
components for the rGasMonth (an entry exists here for 
every possible month within the system, with status 
information) table within the application. 




60 0 


DBRptsControl 


Data Module 


EMS 
PCC 


This module represents the main driver module for 

submitting reports. 




61.0 


DBRptsExecutedStats 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsExecutedStats (Execution 
statistics for reports) table within the application. 




62.0 


DBRptsGroupltems 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsGroupltems (List of reports 
available within each tab/folder) table within the 
application. 




63.0 


DBRptsGroups 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsGroups (List of at! tabs within 
each reporting folder) table within the application. 
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Ref# 


Module Name 


Module Type 


Application 


Description/Comments ~* 


64.0 


DBRptsltemDetail 


Data Module 


EMS 
PCC 


This module contains alt of the databasecommunication 
components for the SERptsltemDetail "(List of specific 
reports available throughout all folders and tabs) table 
within the application. 


65.0 


DBRptsltemParms 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsttemParms (Ust of all report 
parameters available to each specific report) table within 
the application. 


66.0 


OBRptsQueue 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsQueue (actual report 
submission queue) table within the application. 


67.0 


DBRptsQueueOistnbute 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsQueueDistribute (report 
distribution instructions area) table within the application. 


68.0 


DBRptsQueueNotify 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsQueueNotify (report notification 
instructions area) table within the application. 


69.0 


DBRptsScheduie 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsSchedule (report schedule 
definition area) table within the application. 


70.0 


DBRptsScheduledReports 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsScheduledReports (reports 
belonging to schedule definition area) table within the 
application. 


71.0 


DBRptsScheduleGroups 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsScheduleGroups (report 
schedule groups definition area) table within the 
application. 


72.0 


DBRptsScheduieUserGroups 


Data Module 


EMS 
PCC 


This module contains alt of the database communication 
components for the SERptsScheduleUserGroups (user list 
belonging to a specific schedule group definition area) 
table within the application. 


73.0 


DBRptsTablestlsed 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsTablesUsed (tables, views and 
stored procedures used by each report area) table within 
the application. 


74.0 


OBStoredProcedures 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for accessing and invoking all stored 
procedures and functions on the application. Each of 
these procedures are setup as methods within this class 
and this particular class acts as a common wrapper for 
invoking these DB procedures. 


75.0 


RTCrystalDriverPanseMemo 


Business Rules 


EMS 
PCC 


This module contains all of the string parsing routines used 
to store reporting parameters, formulas and selection 
criteria. 


.76.0 


RTDBAddress 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
addresses (Address table) are within this particular 
module. 




77.0 


RTDBCompany 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
companies (Company table) are within this particular 
module. 




78.0 


RTDBContactFunction 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
contact function (ContactFunctton table) are within this 
particular module. 




79.0 


RTDBContacts 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
contacts (contacts table) are within this particular module. 




80.0 


RTD8Contact_Group 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
contact group relationships (ContactGroup table) are within 
this particular module. 




81.0 


RTDBContact_GroupNames 


Business Rules 


EMS 


All business rules and edits associated with the application 
contact group names (ContactJSroupNames table) are 
within this particular module. 




82.0 


RTDBEngme 


Business Rules 


EMS 


All business rules and edits associated with the application 
engine pricing transaction (Engine table) are within this 
particular module. 
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Ref # 


Module Name 


Module Type 


Application 


Description/Comments ------ , • ; 


83.0 


RTDBEngmeJvlaster 


Business Rules 


EMS 


All business rules and edits associated with the application 
engine pricing entry (Engine_Master table) are within this 
particular module. 


84.0 


RTDBEngineJvlasterPnce 


Business Rules 


EMS 


All business rules and edits associated with the application 
engine pricing components (w/price tags) entry 
(Engine.MasterPrice table) are within this particular 
module. 


85.0 


RTDBEngine_TransactionList 


Business Rules 


EMS 


All business rules and edits associated with the application 
engine transaction master list (Engine.TransactionList 
table) are within this particular module. 


86.0 


RTDBExceptionCategones 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
exception categories (ExceptionCategories table) are 
within this particular module. 


87.0 


RTDBExceptionUst 


Business Rules 


EMS 
PCC 


Aft business rules and edits associated with the application 
exception list (Exception List table) are within this particular 
module. 


88.0 


RTDBGaslnv 


Business Rules 


EMS 


All business rules and edits associated with the application 
volume inventory transaction header (Gaslnv table) are 
within this particular module. 


89.0 


RTDBGasinvD 


Business Rules 

I 
! 


EMS 


All business rules and edits associated with the application 
volume inventory transaction detail dairy (GaslnvD table) 
are within this particular module. 


90.0 


RTDBGCButton 


Business Rules 


EMS 
PCC 


Ail business rules and edits associated with the application 
business functions (GCButton table) are within this 
particular module. 


91.0 


RTDBGCIndex 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
price indices (GCIndex table) are within this particular 
module. 


92.0 


RTDBGCSecunty 


Business Rules 


EMS 
PCC 


Alt business rules and edits associated with the application 
security authorizations (GCSecurity table) are within this 
particular module. 


93.0 


RTDBGCUser 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
users (GCUser table) are within this particular module. 


94.0 


RTDBImages 


Business Rules 


EMS 


All business rules and edits associated with the application 
graphic images (SElmages table) are within this particular 
module. 


95.0 


RTDBIndexBasketUnk 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
index price basket link (IndexBasketUnk table) are within 
this particular module. 


96.0 


RTOBlndexBaskets 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
index price baskets (IndexBaskets table) are within this 
particular module. 


97.0 


RTDBIndexRef 


Business Rules 


EMS 
PCC 


Ail business rules and edits associated with the application 
price index master list (IndexRef table) are within this 
particular module. 


98.0 


RTDBK 


Business Rules 


EMS 


All business rules and edits associated with the application 
contracts (K table) are within this particular module. 


99.0 


RTDBKNetBack 


Business Rules 


EMS 


Ad business rules and edits associated with the application 
contract netback pricing tiers (KNetBack table) are within 
this particular module. 


100.0 


RTDBKNotes 


Business Rules 


EMS 


All business rules and edits associated with the application 
contract free form note area (KNotes table) are within this 
particular module. 


101.0 


RTDBKProducts 


Business Rules 


EMS 


All business rules and edits associated with the application 
contract products area (KProducts table) are within this 
particular module. 


102.0 


RTDBKReportDefaults 


Business Rules 


EMS 


All business rules and edits associated with the application 
contract standard report defaults area (KReportDefaults 
table) are within this particular module. 


103.0 


RTDBKReportOverndes 


Business Rules 


EMS 


All business rules and edits associated with the application 
contract standard report overrides area (KReportOverrides 
table) are within this particular module. 


104.0 


RTDBKServices 


Business Rules 


EMS 


AH business rules and edits associated with the application 
contract services area (KServices table) are within this 
particular module. 
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Ref# 


- Module Name 


Module Type 


Application 


Description/Comments: — - *~ * - 5 - 


105.0 


RTDBLea 




CMC 


Alt Hiictnaec mice 3nH &rifte aftcnnatoW txnth tHo anr>liftatinn 
/Ml Quail lC5a fuleS dilU tsull5 eodUUdlcU jwtul U1C <sp£sfi(*dlfL/M 

teg (monthly) area (Leg table) are within this particular 
module. 


106.0 


RTDBLeaD 


Riicinpec teniae 
DUoJHCsb r\UJc5 


CIVJO 


aii Dusmess ruies anu curts assuciaicu wnn ine application 
leg (daily) area (LegD table) are within this particular 
module. 


107.0 


RTDBLeo Detail 




Cvno 


/mi uusincao ruies anu cans assuuaicu wnn ine application 
leg detail (main routing) area (LegDetait table) are within 
this particular module. 


108.0 






CMC 


All business rules and edits associated with the application 
leg master list area (LegRef table) are within this particular 


109.0 


RTDBLocations 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
locations (SELocations table) are within this particular 
module. 


110.0 


RTDBMessages 


Business Rufes 


EMS 
PCC 


All business rules and edits associated with the application 
messages (SEMessages table) are within this particular 
module. 


111.0 


RTDBMeter 


Business Rules 


EMS 


All business rufes and edits associated with the application 
meters (Meter table) are within this particular module. 


1 1*.U 


• k i DbMeterAiiocattons 


Business Rules 


EMS 


All business rules and edits associated with the application 
meter ownership allocations (MeterAtlocations table) are 
within this particular module. 


113.0 


RTDBMeterNotes 


Business Rules 


EMS 


All business rules and edits associated with the application 
meter comment areas (MeterNotes table) are within this 
particular module. 


114.0 


RTDBMeterRates 


Business Rules 


EMS 


All business rules and edits associated with the application 
meter rate areas (MeterRates table) are within this 
particular module. 


115.0 


RTDBPackage 


Business Rules 


EMS 


All business rules and edits associated with the application 
deals (Package table) are within this particular module. 


116.0 


RTDBPackageCorrespondence 


Business Rules 


EMS 


AH business rules and edits associated with the application 
deal correspondence (PackageCorrespondence table) are 
within this particular module. 


117.0 


RTDBPackageCosts 


Business Rules 


EMS 


All business rules and edits associated with the application 
deal 'Other Costs' (PackageCosts table) are within this 
particular module. 


1 to.u 


K 1 UfcJ Pipe Held 


Business Rules 


EMS 


Alt business ruies and edits associated with the application 
pipes/fields (PipeReW table) are within this particular 
module. 


1 iq n 


RTD B P riceComponents 


Business Rules 


EMS 


Alt business rules and edits associated with the application 
price components (PriceComponents table) are within this 
particular module. 




n i uorriceuesc 


Business Rules 


cue 
EMS 


All business rules and edits associated wtfh the application 
deal pricing free form text area (PriceDesc table) are within 
this particular module. 


191 ft 


K i uornnteruer 


Business Rules 


EMS 


All business rules and edits associated with the application 
printer definitions (PrinterDef table) are within this 
particular module. 


lu.U 


n i UDrrocessmguoues 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
processing codes (SEProcessingCodes table) are within 
this particular module. 


123 0 


r\ i UDrTOCessingt^ouc i ypcs 


Business routes 


tMo 


All business rules and edits associated with the application 
processing code types (SEProcessingCodeTypes table) 
are within this particular module. 


124.0 


RTnRPrnrt Internet 


□UolUcoS r\U)S5 




All business rules and edits associated with the application 
'Availability royalty interests (Prodlnterest table) are within 
this particular module. 


125.0 


RTDBProdPKG 


Business Rules 


EMS 


All hiisiness rules and £dit& flSJirwyatfrri with th» anpkli/*attrm 

'Availability* deal to ProdVol cross-reference (ProdPKG 
table) are within this particular module. 


126.0 


RTDBProdSum 


Business Rules 


EMS 


All business rules and edits associated with the application 
'Availability' monthly meter summary (ProdSum table) are 
within this particular module. 


127.0 


RTDBProdVol 


Business Rules 


EMS 


Alt business ruies and edits associated with the application 
'Availability' monthly ownership volume (ProdVol table) are 
within this particular module. 
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Ref * f Module Name- 


Module Type 


Application 


Description/Comments ^ - 


128,0 


RTDBrDeatClass 


Business Rules 


EMS 


All business rules and edits associated with the application 
deal classification options (rDeaiClass table) are within this 
particular module. 


129.0 


RTDBrDealClassA 


Business Rules 


EMS 


All business rules and edits associated with the application 
deal classification answers (rDealClassA table) are within 
this particular module. 


130.0 


RTDBrDealCIassRuies 


Business Rules 


EMS 


AH business rules and edits associated with the application 
deal classification wasp rules (rDeaJCIassRules table) are 
within this particular module. 


131.0 


RTDBrGasMonth 


Business Ruies 


EMS 
PCC 


AH business rules and edits associated wrth the application 
production month (rGasMonth table) are within this 
particular module. 


132.0 


RTDBRptsExecutedStats 


Business Ruies 


EMS 
PCC 


All business rules and edits associated with the application 
execution statistics for reporting (SERptsExecutedStats 
table) are within this particular module. 


133.0 


RTDBRptsGroupltems 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
tab items for reporting (SERptsGroupltems table) are 

within thrc narttnilar module 


134.0 


RTDBRptsGroups 


Business Ruies 


EMS 
PCC 


All business ruies and edits associated with the application 
tabs for reporting (SERptsGroups table) are within this 

particular mouuiB. 


135.0 


RTDBRptsltemDetail 


Business Rules 


EMS 
PCC 


All business rules and edits- associated with the application 
report files used for reporting (SERptsltemDetail table) are 
within this particular module. 


136.0 


RTDBRptsltemParms 


Business Rules 


cue 

PCC 


All business rules and edits associated with the application 
report file parameters used for reporting 
(SERptsltemParms table) are within this particular module. 


138.0 


RTDBRptsQueue 


Business Rules 


EMS 


All business rules and edits associated with the application 
report submission queue used for reporting (SERptsQueue 
table) are within this particular module. 


139.0 


RTDBRptsQueueDistnbute 


Business Rules 


EMS 

DPP 


All business rules and edits associated with the application 
report queue distribution options used for reporting 
(SERptsQueueDistribute table) are within this particular 
module. 


140.0 


RTDBRptsQueueNotify 


Business Ruies 


EMS 
qpp 


All business ruies and edits associated with the application 
report queue suomission nouncauons usee Tor reporting 
(SERptsQueueNotify table) are within this particular 
module. 


141.0 


RTDBRptsSchedule 


Business Rules 


EMS 

DPP 


All business rules and edits associated with the application 
repon scneauies useo Tor repomng (ocnptsocneauie 
table) are within this particular module. 


142,0 


RTDBRptsScheduledReports 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
report schedule actual reports used for reporting 
(ociApisocneuuieunepons laDtcj oio wnnin inn particular 
module. 


143,0 


RTDBRptsSched uleGrou ps 


Business Rules 


EMS 

• WW 


All business rules and edits associated with the application 

(SERptsScheduleGroups table) are within this particular 
module. 


144.0 


RTDBRptsScheduleUserGroups 


Business Ruies 


EMS 
PCC 


All business rules and edits associated with the application 
report schedule users (in groups) used for reporting 
(SERptsScheduleUserGroups table) are within this 
particular module. 


145.0 


RTDBRptstablesllsed 


Dusines5 rtuies 


CMC 

PCC 


All ttnemafee pi lias anH Affile afieAmatAil uiitk tka nnttliMtiAft 

ah Dusiness ruies a no cans associateo wim ine application 
report tables used for reporting (SERptsTablesUsed table) 
are within this particular module. 


146.0 


RTMessageStackClient 


Business Rules 


EMS 
PCC 


This oafticular module is resoonsible for maintain na the 
current list of messages that will be displayed to the user. 
This module will provide for the storing of up to 50 
messages (in memory tables) in between enter button or 
mouse dicks. This provides for any/all error messages 
concerning a specific event to be displayed at once versus 
one at a time. 


147.0 


FmAbout 


Form 


EMS 
PCC 


This form provides descriptive information about the 
application (version number, copyright notice, email and 
website support links, etc). 
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Ref# 


Module Name^ 


Module Type 


Application* 


Description/Comments^ ; s . 


148.0 


FmActuaiizePurchases 


Form 


EMS 


This form provides the method for performing (Step 2 of 4) 
of the actualization process within EMS. 


149.0 


FmActualizeSales 


Form 


EMS 


This form provides the method for performing (Step 3 of 4) 
of the actualization process within EMS; 


150.0 


FmAddressDetail 


Form 


EMS 


This form provides for the updating of addresses for 
contacts and companies. The table that gets updated 
behind the scenes is the Address table. 


151.0 


FmAddressUst 


Form 


EMS 


This form provides a list of ail available addresses that 
have already been setup for a company. Options on this 
form include an ability to change, add or delete address 
lines from the iist. 


152.0 j FmBusmessFunctionsDetail 

I 


Form 


EMS 


This form provides for the updating of the business 
functions that are available within the Energy Management 
System AND the Producer Control Center. The table that 
gets updated (behind the scenes) is the 'GCButton' table. 


153.0 


FmSusinessFunctionsUst 

I 


Form 


EMS 


This form provides a iist of all available business functions 
that are currently within the Energy Management System 
AND the Producer Control Center, Options exist here to 

auu, u laity c aiiu uctctc uu9iiio«9 luiiuiuin. caul ui uicoB 

business functions represent areas within the application 
for setting system security. 


154.0 


FmCommon 


Form 


EMS 
PCC 


Thic f nrm nmuirioc for sit fifths mmninn nmnnrtiott ncD/i 

1 |II5> J Ul III fJIUVIUCO IUI OH Ul Al lw MJIIIIMWII piU^ClUCn* U9cQ 

by all forms. This form can be accessed via the main 
menus by selecting system properties. .Ml of the color 
schemes ^tranhic irnaaes etc that are used hv thii cvstpm 

are included on this form. At runtime, all other forms within 
the system will invoke public methods within mis form to 
set their respective screen fields. 


155.0 


FmCompanyDetail 


Form 


EMS 


This form provides the mechanism for updating detail 
information pertaining to a specific company. This includes 
idpntifiratinn nf a nrimarv comoanv address 


156.0 


FmCompanytist 


Form 


EMS 


This form provides a grid list of all companies that are 

ctirrenthr ctarcwf fin EMS Ontions on this fnim inrdnrta 

vUl 1 Wl HI JF 91UICU Wll hlVIW. wyuwii9 Wll UltW (Willi IIIWIWUO 

extensb/e lookup and tab options. 


157.0 


FmContactDetail 


Form 


EMS 


This form provides the form for updating detail information 
about a contact at a narticular comDanv This includes 
group memberships, functions, eta 


158.0 


FmContactFunctionDetail 


Form 


EMS 


This form provides the mechanism for associating a 
contact within a company to a specific job function at that 
company (i.e. Accounting, production, etc). 


159.0 


FmContactGroupDetail 


Form 


EMS 


This form provides the mechanism for creating or updating 
contact groups on the system. 


160.0 


FmContactGroupUst 


Form 


EMS 


This form fists all available contact groups on the system. 
Options on this form include the ability to add, change or 
delete a contact group. 


161.0 


FmContactUst 


Form 


EMS 


This for lists all contacts within all companies. Options on 
this form include an ability to add* change or delete a 
specific contact (with appropriate security). In addition, 
there are extensive data lookup capabilities. 


162.0 


fmContactSecurityAuth 


Form 


EMS 


This form provides for the entry of external company 
security authorization rules (i.e. Enabling access to 
Producer Control Center, eta). 


163.0 


FmCorttractDetail 


Form 


EMS 


This form represents the detail form for entering contract 
specific information (netback pricing information, contract 
name, terms, provisions, eta). 


164.0 


FmContractUst 


Form 


EMS 


This form provides a grid list of all existing contracts on the 
system. Options exist on this form to add, change or 
delete a contract This form also includes extensive lookup 
and company letter tab's for searching all contracts. 


165.0 


FmDaityPrices 


Form 


PCC 


This form shows the graphs of the revenue detail 
information on the Producer Control Center. 


166.0 


FmOealCtassificationUpdates 


Form 


EMS 


This form provides the mechanism for changing any 
calculation rules associated with a given combination of 
deal classification codes. The WASP inclusion indicator is 
stored on this table. 


167.0 


fmDeaiCorrespondenceDetail 

— .. 


Form 


EMS 


This form provides an entry form for attaching electronic 
correspondence to a deal. 
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Ref# 


Module Name | Module Type 


Application- 


Description/Comments- ^ ^ v 


168.0 


FmDealCostsEntryDetail 


Form 


EMS 


This form provides for the entry of 'OtherCosts' associated 
with a particular deal. 


169.0 


FmDealDetail 


Form 


EMS 


This is the main detail form that shows ail of the 
information relative to a deal. 


170.0 


FmDeaiEntryNew 


Form 


EMS 


This form represents a popup box that is displayed when a 
new deal has been requested. This box prompts the user 
for the type of deal (purchase or sale) and what product 
and service it is applicable toward. 


171.0 


FmDealList 


Form 


EMS 


This form provides a listing of all 'Purchase' or 'Sales' 
deals within a given month on a grid. Options exist on this 
screen to add, change or delete a deal. 


172.0 


FmDealPrice 

I 


Form 


EMS 
PCC 


This is the form that is used whenever a user wants to 
calculate the prices for a given volume within a given 
month. The only options on this form are to 'Price Air and 
only for those production months and volumes that are 
I applicable (based on monthly status). 


173.0 


j FmDeaiPriceEntryDetail 


Form 


EMS 


This is the mam form for entering deal price information 
within the Energy Management System. The primary 
underlying tables that get updated include Enginejvlaster 
and Engine_MasterPrice. 


174.0 


FmException 


Form 


EMS 
PCC 


This form is invoked whenever a system exception occurs 
within the system. In order to complete the exception a 
particular user must have a 'Super ID' for the function and 
he/she must provide an exception reason with a 
description. 


175.0 


FmExceptionCategories Detail 


Form 


EMS 


This form provides for a detail update screen to update 
reason code information for a given type of exception. 


176.0 


fmExceptionCategonesList 


Form 


EMS 


This form provides a listing grid of all reason code 
exceptions for a given type of exception. 


177.0 


FmGraphicViewer 


Form 


EMS 


This form provides an ability to view graphic images and/or 
scan in graphic images from a scanner. These images can 
be attached to a deal. 


178.0 


fmGroupMemberDetail 


Form 


EMS 


This form represents the detail form for associating a 
contact as a member of a specific group. 


179.0 


FmlmagesDetaii 


Form 


EMS 


This form represents the detail form used for posting 
updates to the application graphic images (logo's, etc.). 


180.0 


FmlmagesUst 


Form 


EMS 


This form provides a list of all graphictmages (logos) that 
are currently stored in the system. 


181.0 


FmlndexBasketDetail 


Form 


EMS 


This form provides a detail update screen to update index 
price basket information. 


182.0 


FmlndexBasketLinkOetail 


Form 


EMS 


This form provides a detail update form to allow for the 
updating of index links to particular baskets. 


183.0 


FmlndexBasketList 


Form 


EMS 


This form provides a listing grid of all index baskets on the 
system. 


184.0 


FmLegDaiiy Detail 


Form 


EMS 


This form provides the detail rate information associated 
with a daily leg rate (which overrides the monthly rate 
when setup on EMS). 


185.0 


FmLegDailyUst 


Form 


EMS 


This form provides a listing of all daily rates that may be 
setup for a particular leg. 


186.0 


FmLegDetail 


Form 


EMS 


This form provides the detail rate information associated 
with the a given leg, on a given production month within 
the system. Both nomination and actual rate information is 
available. 


187.0 


FmLeg History 


Form 


EMS 


This form provides a historical list of alt monthly leg rates 
that have been established for a given leg. 


188.0 


FmLeg List 


Form 


EMS 


This form provides a list of all legs on the system. Options 
exist from this screen to select and change (modify) the 
specific rate information about a leg. 


189.0 


FmLegMonthlyView 


Form 


EMS 


This form represents a 'view' form that provides a read- 
only view of all volumes transported in, out, sold and/or on 
balance for a specific meter. 


190.0 


FmLegPurchasetinkMonthlyView 


Form 


EMS 


This form represents a View 1 form that provides a read- 
only view of all the purchase deals (volumes) that have 
been attributed to a selected sale. 


191.0 


FmLegPurchaseUnkView 


Form 


EMS 


This form represents a 'view' form that provides a read- 
only view of ail purchases linked to a specific sale on a 
given day. 
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Ref*M 

192.0 


Module Name 

FmLegPurchasePomtView 


Module Type- 
Form 


Application - I 
EMS 


Description/Comments? ^ . = 
This form represents a 'view' form that provides a read- 
nniu vi ouu nf thp nriainatinn ihoo 01 information for any 
given volume that is displayed on the routinq screen(s). 


193.0 


FmLegRoute 


Form 


EMS 


This is the main routing screen. Options exist on this 

screen to select pipe/fields, days, noms or actuals, etc. 

ia/uk Annmnriifo eA/^iritu 9 norcnn mn trsnsoori snd/or 
Witn appropriate secumy a pciauu uana^wu nuwwi 

seii volume through this panel. 


194.0 


FmLegSale 


Form 


EMS 


This form is used as a confirm form for posting volume 
balances to a sale. 


195.0 


FmLegSalesView 


Form 


EMS 


This form represents a 'view' form that provides a read- 
only view of all sales that exist on a given pipe/field for 
either a single day or an entire month. 


196.0 


FmLegTransport 


Form 


EMS 


This form is used as a confirm form for transporting 
volumes to other meters (pools). Options also exist on this 
form to selectively override transport, gathering, pvr or fuel 
rates associated with the transport. 


197.0 


FmLegChange 


Form 


EMS 


This form is used whenever a request is made to change 
the instructions (either volume or rates) on an existing 
transport OR sale route item. 


198.0 


fmLegDelete 


Form 


EMS 


This form is used whenever a routed volume (either 
transported to a pool or posted to a sale) has been 
requested to be deleted. . 


199.0 


FmLocationsDetail 


Form 


EMS 


This form provides a detail update form to allow for the 
updating of location information. These location entries 
are used throughout the system (versus hardcoding 
locations within the software). 


200.0 


fmLocationsList 


Form 


EMS 


This form provides a list form to allow for showing the 
location information. These location entries are used 
throughout the system (versus hardcoding locations within 
the software). 


201.0 


fmLogin 


Form 


EMS 
PCC 


This is the common login form used by the application^). 
It provides the mechanism for authenticating users or 
company contacts upon entry into the system. 


202.0 


fmLoginChange 


Form 


EMS 


This form provides the users of the system with the ability 
to change their login passwords. 


203.0 


fmLookup 


Form 


EMS 
PCC 


This form provides a standard lookup dialog that allows for 
queries to be run for nearly all other list forms within the 
system. Most list screens provide a lookup button 
(binoculars) that will invoke tnts form. 


204.0 


fmMessageBox 


Form 


EMS 
PCC 


This form displays all system messages used within the 
system. This particular form gets utmzea oy neany an 
other form on the system. Trie messages displayed by this 
form include all ERROR, CONFIRMATIONAL, 
imc/^dm atiomai anH IM-PROT1F SS oriented mess&oes. 


205.0 


fmMeterAllocationsOetail 


Form 


EMS 


This form provides for an entry screen for entering 

ail0C3u0n Companies olIU abbwulllllty wv»» iBinniw w^m\ 

codes for a given meter/well and effective date. 


206.0 


FmMeterDetaii 


Form 


EMS 


This form provides for a detail update form on meter/well 
information within the system. 


207.0 


fmMetertJst 


Form 


EMS 


1 ms fonti provtoes ror a usi TOim oi au rneierarwciw wiuim 
the system. 


208.0 


frnMeterRatesDetait 


Form 


EMS 


This form provides for an entry screen for entering rates 
(pressure base, Btu factor, pipe/field pressure base, etc) 
for a given meter/well on a specific effective date. 


209.0 


FmMeterRevenue 


Form 


PCC 


This form provides a meter/well form that shows graphic 
representation of calculated volumes and prices. 


210.0 


FmMeterTotalsView 


Form 


EMS 


This form provides a 'view 1 which is a read-only view of all 
the meter totals (actualized versus not actualized) for an 
entire month). A specific deal OR all deals within a month 
can be viewed through this form. 


211.0 


FmMonthlyStatusDetail 


Form 


EMS 


This form provides a screen for updating the detail 
production month status information. This is where users 
wiil go to change the status for each production month 
(depending on security level of the user). 
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Ref# 


Module Name > 


| Module Type 


Application - 


Description/Comments ~ :v ~ , 


212.0 


FmMonthlyStatusUst 


Form 


EMS 


This form provides a gnd list of ait monthly status 
information (by status). Options exist here to invoke the 
detail update screen to update monthly status information 
(with appropriate security). 


213.0 


fmNetBackTierDetail 


Form 


EMS 


This form provides the detail form for updating the netback 
pricing tiers for a given contract. These tiers are 
referenced (for all WASP classified deals) during the 
pricing function. 


214.0 


FmOGISFeeds 


Form 


EMS 


This form provides an entry form for specifying the 
parameters used to create the OGIS journal entry and 
revenue receivable accounting feeds. The actual text files 
are created from this form. 


215.0 


FmPicKACompany 


Form 


EMS 
PCC 


This form provides a common mechanism for displaying a 
list of companies to a user and having one of them 
selected and carried back to the requesting form. 


216.0 


FmPickAContact 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of contacts to a user and having one of them selected 
ana earned back to the requesting form. 


217.0 


FmPickAContract 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of contracts to a user and having one of them selected 
and carried back to the requesting form. 


218.0 

I 
I 


FmPickADeal 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of deals to a user and having one of them selected and 
carried back to the requesting form. 


219.0 


FmPickADeaiMeter 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of deal meters to a user and having one of them 
selected and carried back to the requesting form. 


220.0 


FmPtckALeg 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of leg (monthly routes) to a user and having one of 
them selected and carried back to the requesting form. 


221.0 


FmPickALegRef 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of LegRef (master routes) to a user and having one of 
them selected and carried back to the requesting form. 


222.0 


FmPickALegSale 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of sales points available for routing to a user and 
having one of them selected and carried back to the 
requesting form. 


223.0 


FmPickAMeter 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of meters/welts to a user and having one of them 
selected and carried back to the requesting form. 


224.G 


FmPickAPipeline 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of pipe/fields to a user and having one of them selected 
and carried back to the requesting form. 


225.0 


fmPickAReport 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of reports to a user and having one of them selected 
and carried back to the requesting form. 


226.0 


FmPipeDetail 


Form 


EMS 


This form provides the detail update form for updating 
pipe/Meld information on the system. 


227.0 


fmPipelineActuais 


Form 


EMS 


This is the main form used for enter actual volumes for 
meters/wells on the system. The form includes a 
calculator function for propagating the volumes across all 
days for the highlighted meter/well. 


228.0 


fmPipeList 


Form 


EMS 


This form provides the list form to show all pipe/fields 
currently defined within the system. Options exist on this 
form to add, update or delete a pipe/Held. 


229.0 


FmPriceComponents Detail 


Form 


EMS 


This form provides the screen for updating the detail 'price 
tags 1 that have been setup on the system. These price 
tags allow us to identify the various portions of a sale or 
purchase price. 


230.0 


FmPriceComponentsList 


Form 


EMS 


This form provides a grid list of all price components (tags) 
that have been setup on the system. 
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Ref#* 


Module Name 


Module Type 


Application 


Desen>tion/&>mmenta^v^ i- — 




Tmrnceinuexupaaies 


Form 


CMC 


i nis Torrn proviaes a iisi or ail prices to r tub oauy inaex 
Prices. When entering this form the default date is set to 
the current date. When prices are being entered on 

(Vturfusys inc;f«f is o LAJfjy tu picviuud wm.nenu uuuun 

which wilt allow for ail prices to be propagated back to the 

nrv*t/intf< \Af&**k&nfi Month h/ indfix once* am Antomi on 

day 1 onty for a given month. 


232.0 


PmPricp t nrt ir#*«i Dptaii 


Form 


CMC 
C.IVIO 


Thie form nmvtrloc a cn&pn fnr imristt'mn thA nrirw inripy 

information on the database (IndexRef table). This 

IIIUUUC9 oioiyiay uiuci, name, civ*. 


233.0 


fmPricelndicesUst 


Form 


EMS 


This form provides an 'updateable' grid list that shows ail 

price muices on mo oyoiein. vyfjuuiio exm iicic iu fnvuiw 
the add/update function (fmPricelndicesDetail). 


234.0 


fmPricesBylndexList 


Form 


EMS 

DPP 


This form provides a graphic and tabular view of index 
prices tor a given rnonui* 


235.0 


FmPrinterDetail 


Form 


EMS * 


This form provides a detail entry form tor updating the 
printer inTorrnauon siorea on ine sysiern. 


236.0 


fmPrinterUst 


Form 


EMS 


This form provides a list form that shows ail printers 

currently oeiinea on ine sysiem. 


237.0 


FmProcessmgCodes Detail 


Form 


EMS 


This form provides the detail form for updating a given set 
of reference (processing codes). 




FmProcessingCodesUst 


r~_ 

rorm 


EMS 


This form provides the list form for showing all of the 
processing codes. Options exist on this form to add, 
update or delete a given code. 


239.0 


FmProcessingCodesPfck 


Form 


EMS 


This form provides an ability to 'pick* a particular reference 
code and send ft back to the form that invoked the screen. 


240.0 


FmProcessmgCodeTypesDetaii 


Form 


EMS 


This form provides the detail form for updating a given set 
of processing code types (types of reference codes). 


241.0 


tmProcessingCodeTypesLtst 


Form 


EMS 


This form provides the list form for showing ail of the 
processing code types. Options exist on this form to add, 
update or delete a given type. 


242.0 


FmProdVolCofirms 


Form 


EMS ' 


This form provides the mechanism for recognizing volumes 
that were returned by producers. In addition, options exist 
on this form to send out producer confirmations. 


243.0 


FmProdVolHist 


Form 


EMS 


This form provides a history list of royalty and makeup 
percentage interests, by owner, for a given meter/well. 


244.0 


FmProdVoltist 


Form 


EMS 


This form provides the mechanism for entering initial 
volumes (expected availability) from producers. Option 
exist on this form to send out producer availability estimate 
reports. 


245.0 


FmReportDefaultsDetail 


Form 


EMS 


This form provides a detail screen for setting up the default 
reports that will be used by entity, product and service on 
the system. These reports include invoices, vouchers, 

remittance, etc. 


246.0 


FmReportDefauttsList 


Form 


EMS 


This form provides a list screen for showing ail of the 
default reports that are setup by entity, product and service 
on the system. These reports include invoices, vouchers, 
remittance, etc 


247.0 


FmReportOverridesDetail 


Form 


EMS 


This form provides a detail screen for setting up the 
override reports that will be used by entity, product and 
service on the system ASSOCIATE TO A SPECIFIC 
CONTRACT. These reports include invoices, vouchers, 
remittance, etc. 


248.0 


FmReportsList 


Form 


EMS 
PCC 


This is the primary form used for displaying a reporting 
folder. Within this folder are all of the reporting tabs* that 
are available. Within each tab are all of the specific reports 

that r~an hct n in A ^M^vntccion anri viaui HirHrm ark 
uial Call Oc fun. r\ out/if uooiuii, driu vftJW uuuon aiC 

available here. 


249.0 


FmReportsParaemeters 


Form 


EMS 
PCC 


This is the form that is used when entering the various 
parameters when a report is submitted. Defaults are 
automatically supplied and the parameters are listed in a 
grid list format 


250.0 


fmReportsView 


Form 


EMS 
PCC 


This is the main view form for viewing all of the submitted 
reports. Options exist to view the reports specifically 
submitted by a user OR to view the reports that were 
submitted by the scheduler. 
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Module Name 


* -Module Type 


Application 


" Description/Comments*? ^i^^/^^k^^^^fr^i^"^^^ « - ^ 


251.0 


fmSecurityAuthDetail 


Form 


EMS 


This form represents the form tor establishing and updating 
security authorizations between users -and business 
functions within the Energy Management System. Options 
exist Here to anow ior users 10 nave wu muwcoo, fschu 
ONLY, READ/UPDATE, READ/UPDATE/DELETE or 
SUPER access to a particular area of application. 


252.0 


tmSecuntyAuthList 


Form 


EMS 


This form provides a listing of all security authorizations 
that are set for each user on the Energy Management 
System. Options exist on this form to add, update and 
delete specific security authorizations for any given user of 
the system. 


253.0 


FmsRptsinvoice 


Form 


EMS 


This is the primary form used for submitting standard 
invoice reports. 


254.0 


FmsRptsRemittance 


Form 


EMS 


This is the primary form used for submitting standard 
remittance reports. 


255.0 


frnsRptsVoucher 


Form 


EMS 


This is the pnmary form used for submitting standard 
voucher reports. 


256.0 


FmTransactionDetail 


Form 


EMS 


This form provides for the entry of 'Other Cost" transactions 
within EMS. Once these transactions are setup in the 
system, then they can be attached to deals and 
calculations will be done against them. 


257.0 


FrnTransactionList 


Form 


EMS 


This form provides a list of all the 'Other Cost transactions 
that have been setup on the system. 


258.0 


fmUserProfilesDetail 


Form 


EMS 


This form represents the creation and update form for all 
users on the Energy Management System. This form 
provides an administrator with the ability to change name, 
password, title, default printer, etc. for ail users on the 
system. 


259.0 


frnUserProfilesList 


Form 


EMS 


This form provides a listing of all users that are capable of 
using the Energy Management System. Options exist on 
this form to add, update or delete a specific user. 


260.0 


fmGasControiMainMenu 


Form 


EMS 


This form represents the main menu for the Energy 
Management System. All menu options, speed buttons, 
etc are stored on this form. This particular form is also 
responsible for invoking the methods to establish a 
connection and set the form screen attributes (based on 
user preferences). 


261.0 


frmProducerControiCentefWain 


Form 


PCC 


This form represents the main menu for the Producer 
Control Center. All menu options, speed buttons, etc are 
stored on this form. This particular form is also responsible 
for invoking the methods to establish a connection and set 
the form screen attributes (based on user preferences). 
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APPLICATION (CLIEN-SIDE) SOFTWARE 

The table that follows contains the high-level documentation related to the 
systems and methods provided by the present invention and, in particular, those sub- 
functions and applications that run client-side in the context of the present invention. In 
the table that follows, the terms EMS and PCC are used to differentiate (as described 
above), between a full use application system and a limited use/user/function 
application system that are provided by the present invention. The actual source code 
for such application software is contained among the files found on the attached 
compact disc. 

PRICING AND PRICING TECHNIQUES 

So far in the aforementioned detailed discussion the present invention, it 
has been assumed that the particular pricing techniques may be employed to 
price one or more fuel deals automatically. The present invention certainly 
permits fuel deals to be priced based on a variety of factors germane to the 
energy field. Additionally, the systems and methods provided by the present 
invention permit fuel deals to be priced automatically, in batch or otherwise, 
based on pricing techniques which are modularized and which are carried out 
automatically based on prior or other collections of fuel deals and other fuel 
deal data. Accordingly, teams of sales personnel can have deals priced based 
on company specifications to meet margin requirements, etc. 

One such technique implemented as a modularized process capable of 
pricing one or more fuel deals in accordance with the present invention is 
referred to as the WASP technique which stands for the Weighted Average 
Selling Price technique. WASP permits one or more fuel deals (usually a 
collection) to be priced to meet organization pricing targets (and margin 
requirements) based on computed average sales prices across collections of 
fuel deals. The WASP technique and its supporting computer software are 
contained herein for purposes of example to illustrate the novelty of having a 
system that can incorporate a substitutable pricing technique (algorithm) into a 
business process like or similar to the one depicted in and discussed in regard 
to FIG. 1. 
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The WASP Calculation 

This particular section contains information on the calculation that occurs 
to price deals. In the context of the present invention, it is envisioned that there 
are three situations that can trigger a pricing calculation: 

1 . The price calculation can be submitted at any time by individuals 
with appropriate security using the System online pricing screen 
(see FIGS. 4A-4Q). Only those production months in a 'Sales' 
(nomination recalculated) or Invoiced' (actual recalculated) status 
can be submitted through this screen; 

2. When the status for a production month goes from 'Sales' to 
'Invoiced' a final nomination is performed. In addition, when the 
status of a production month goes from Invoiced' to 'Accounting' 
a final actuals calculation is performed. These production month 
status 'promotions' occur through the EMS online screens (by 
individuals with an appropriate level of security); and 

3. Each evening, for example, all production months that are in 
either the 'Sales' or 'Invoice' status will have a calculation cycle 
run for them. This calculation begins at approximately 8:00 CST, 
for example. This ensures that all variables (price index entries, 
volumes, routing instructions, etc.) that could influence the price of 
a given set of deals are recalculated and presented as current, the 
first thing in the morning. 

The entire calculation process is comprised entirely of MS SQL-Server 
Transact-SQL stored procedures. The 'flow' of the calculation can be described 
with reference to the following six (6) stages: 

Stage 1 . Sales Deal Calculations 

Calculate all sales deals first (all pools and deal classifications). This is 
done because knowing the sales prices (by pool) is required for the following 
purchase deal calculations. 
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Stage 2 WASP Deal Preparation 

This particular stage simply prepares the WASPResolvedRouting table 
with initial sales pool total dollars and volumes. This is the primary table that is 
used when repeatedly (such as via iteration) tracing all volumes from the sales 
5 point back to originating purchase points. 

Stage 3 Purchase Deal 'None' Pool (3 rd Party) Calculations 

All third party purchase deals (belonging to the 'None' (pool) are 
calculated first. The reason for this is because of the potential that some of 
10 these deals having Financial Overrides that are to be distributed to either a 
'Common 5 WASP pool OR to a specific deal. By doing these calculations first, 
the profit gain or loss (for the financial overrides) can be determined and posted 
to the appropriate place in the WASPResolvedRouting table. 

15 Stage 4 Purchase Deal "Dedicated' Pool (Sanctioned Sales) 

Calculations 

All sanctioned sales purchase deals are now calculated. The price for 
these purchases is driven based on a weighted average basis of the sales 
meters. Sanctioned sale purchase exist in their own pool ('Dedicated') so that 
20 no other purchases volumes (and sales of those volumes) will impact the price 
calculated, Netback percentages are applied. 

Stage 5 Purchase Deal 'Common' Pool (Equity) Calculations 

All equity deals are then calculated. The price for these purchases is 
25 driven based on a weighted average basis of the sales meters. All purchases 
that are classified as 'equity' will share in pricing and costing (weighted). The 
pricing is based on the 'common' body. Any given purchase deal classified as 
equity could potentially impact the price that other purchase deals (in the 
'common' pool) calculates. Netback percentages are applied. 

30 
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Stage 6 Transportation Costs 

This stage of the calculation aggregates all of the transport volumes 
throughout the month to special transport deals and volume inventory items. 

5 Each of the aforementioned stages of the calculation are invoked from a 

stored procedure called usp_PSPriceAutoMonth. FIGS. 5A and 5B illustrate 
the process flows corresponding to these 'stages 5 and the flow of the stored 
procedures (discussed above) invoked during the calculation. The ordering of 
these procedures can be tied back to the stages just described above. Actual 

10 WASP calculation routines are listed below to aid the reader to completely 
understand the nature using a predetermined pricing technique in accordance 
with the present invention. 

15 Weighted Average Sales Price Calculation Routines 

The following software routines implement a weighted average sales 
pricing technique that may be incorporated within a computing environment 

20 such as within a server-side processing system to facilitate fuel deal pricing in 
accordance with a preferred embodiment of the present invention. Accordingly, 
in the context of the instant invention, the following routines provide a 
predetermined pricing technique for pricing fuel deals based on past, present, 
or future deals, or combinations thereof. The following routines are found 

25 among the files contained on the attached compact disc, and also have been 
commented to assist those of ordinary skill in the art understand the details 
related to actual implementation. 



/* Microsoft SQL Server - Scripting */ 

30 r Server: IS101 */ 

I* Database: EMS */ 

/* Creation Date 02/13/2001 4:08:41 PM */ 



35 CREATE PROCEDURE uspJGetlndex( 

@GasMonthX DATETIME, 
@GasDayX DATETIME, 
@1XVARCHAR(15), 

©IndexVaiuexx DECIMAL(19,6) OUTPUT 
40 ) 
AS 
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Name: uspJGetindex 
5 Description: Get the most recent index value for a specified price index, 

Inputs: 

GasMonthx - Gas month for lookup 
10 GasDayx- Preferrabie gas day used for lookup 

ix - index id 

IndexValuexx - return index value 



15 



60 



History: 

1 1/07/2000 JAMIE Modifications to convert from Watcom-SQL to 
Transact-SQL 



20 7 

BEGIN 

SELECT ©IndexValuexx = 0 
/* 



****************************************** 



25 * First get the maximum gas day that 

* has been entered for this index 

* id in this particular month. 



7 

30 SELECT @GasDayX=(SELECT Max(GasDay) FROM GCIndex WHERE GasMonth=@GasMonthX AND GasDay<=@GasDayX AND 

lndexlD=@IX AND lndexVal<>0) 
/* 

* Now get the index value for that 

35 *day. 

******************************* *********** 

7 

SELECT ©IndexValuexx = indexVal FROM GCIndex WHERE GasMonth=@GasMonthX AND GasDay=@GasDayX AND indexlD=@IX 
END 

40 

GO 

SET QUOTEDJDENTIFiER OFF SET ANSI_NULLS ON 
GO 

45 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
GO 

CREATE PROCEDURE uspJGetlndexBasketf 
50 ©GasMonthX DATETIME, 

@GasDayX DATETIME, 
©indexBasketlDX VARCHAR(15), 
©IndexValuexx DECIMAL{19,6) OUTPUT 
) 

55 AS 

BEGIN 
/* 



Name: fGetlndexBasket 

Description: This function will get the index basket amount for the specified 
month and date. This function will return a simple average of all the non zero 
components within the index for the month and day. 



65 inputs: GasMonthX (current gas month), GasDayX (day within month) and 

IndexBasketlDX (indexBasket unique identifier). 

Outputs: Simple averaged price for the index basket. 

70 History 
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xx/xx/xx (?) CHIP Original Creation. 



04/29/99 JAMIE Modified for WASP 2.10 Release. Structure changes 
5 made to the Engine and Engine_Master tables. In 

addition, all documentation added. This particular 
portion of the system required extensive changes 
due to the need to store a nom and actual number 
and because all price components are now stored 
1 0 off the Engine JvlasterPrice table (STID's 8 and 9), 



15 



25 



60 



1 1/08/2000 JAMIE Converted to transact-sql. 



/* 



* Declare all exceptions, cursors 

* and local variables that will be 
20 * utilized by this procedure. 



*/ 

DECLARE IndexBasketLinLCursor CURSOR LOCAL FORWARD.ONLY STATIC FOR 

SELECT indexlD FROM IndexBaskelink WHERE lndexBasketlD=@lndexBasketlDX 



DECLARE ©yTotalPrice DECIMAL(19,6) 
DECLARE ©yTotelindices INTEGER 
DECLARE @yTota!Pricelnterim DEC1MAL(19,6) 
DECLARE ©ylndexlD VARCHAR(12) 

30 f. 

* Initialize all fields here... 

*/ 

35 SELECT @yTotalPrice=0 

SELECT @yTotallndices=0 
SELECT @lndexValuexx=0 
/* 



40 * Loop through all of the indices within 

* the index basket. Obtain the price 

* information. 

*/ 

45 OPEN lndexBaskelink_Cursor 

FETCH NEXT FROM IndexBasketLinLCursor INTO ©ylndexlD 
WHILE @@FETCH_STATUS = 0 
BEGIN 

EXECUTE uspJGetlndex ©GasMonthX.gGasDayX^ylndexID^yTotalPriceinterim OUTPUT 
50 IF @yTotalPiicelnterim<>0 

BEGIN 

SELECT @yTo tal P rice= @yTo ta I P rice-MSyTota! P rice I nteri m 

SELECT @yTotallndices=@yTotalIndices+1 

END 

55 FETCH NEXT FROM lndexBasketLink„Cursor INTO ©ylndexlD 

END 

CLOSE lndexBasketLink_Cursor 
DEALLOCATE IndexBasketLink.Cursor 
I* 



* Take the simple average of the totals 
*here... 



*/ 

65 IF (@yTotaIPrice<>0) AND (@yTotallndices<>0) 

BEGIN 

SELECT @lndexValuexx=(@yTotalPrice/@yTotallndices) 

END 

END 

70 



-26- 



5 

GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

10 SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 

GO 

CREATE PROCEDURE uspJGetNetbackPercentage( 

@PIDx INTEGER, 

15 @GasMonthx DATETIME, 

©TypeNetbackx VARCHAR(12), 
©WhichPricex INTEGER, 
©yNetbackPercentage DECIMAL(19,8) OUTPUT 
) 

20 AS 

BEGIN 

r 

Name: uspJGetNetbackPercentage 

25 

Description: This function will return the netback percentage that should be applied 
to a particular deal, for a particular month. This netback percentage is based on the 
percentage setup at the contract level for the deal in question. These percentages 
at the contract level (KNetback table) are tiered. There are two methods of deriving 
30 the percentage. 

Method 0 (Ail or nothing) - With this method the average daily volume for the month 
will be used to find the appropriate tier (also based on effective date). The netback 
percentage to use will be the FIRST tier setup on the contract whose average daily volume 
35 does not exceed the total for the gas month on this package. Ail gas volume for the 
month will use this same percentage (all or nothing). 

Method 1 (Accumulating) - With this method the resulting end percentage that will be 
used is based on volumes within each tier (they are weighted based on their respective 
40 volumes. The netback percentage that is calculated is based on the wieghted average of 

all percentages, across all tiers using volumes that were applied. 

This particular function will work with Nomination (WhichPricex = 0) and Actual 
(WhichPricex = 1) volumes. In addition, this procedure can return both 'GAS' and/or 
45 'OIL' (and or any other) netback (via the TypeNetbackx parameter). 



was sent as an input parameter. The WASP indicator is based on the combination of 
deal classifications that have been established for this deal. The default indicator 
50 is 'N' (ie if classification information can't be found/etc). All combinations of 

deal classifications should be setup. 

Inputs: 

55 PIDx (package ID) 

GasMonthx (Gas Month) 

TypeNetbackx (type of netback percentage) 

WhichPricex (0=Nominations, 1=Actuals) 

60 Outputs: 

A single percentage to be applied to the price, representing the netback. 

History: 

65 

05/13/99 JAMIE Original Creation. 

07/22/99 JAMIE Modified to check for a floor amount 
and return that amount if it is greater 
70 than the calculated amount 
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09/02/1999 JAMIE Modified to sum volumes either across DEAL, CONTRACT 
or COMPANY when determining the correct tier. 

5 08/21/2000 JAMIE Modifications to only sum volumes within the same 

product (across entities and services). 

1 1/08/2000 JAMIE Converted to Transact-SQL 



10 




* Declare all exceptions, cursors 
15 * and local variables that will be 

* utilized by this procedure. 

*/ 

DECLARE ©zRound INTEGER 
20 DECLARE ©zEntityCID VARCHAR(12) 

DECLARE ©zKProductID INTEGER 
DECLARE ©zKServicefD INTEGER 

DECLARE ©tmpEndDate DATETIME 
25 DECLARE ©tmpMaxEffective DATETIME 

DECLARE @tmpDayslnPeriod INTEGER 

DECLARE ©tmpVolumeTotal DECIMAL(19,2) 

DECLARE ©tmpAccumulatingTotal DECIMAL(19,2) 

DECLARE @tmpPrevBand DECIMAL(19,2) 
30 DECLARE ©tmpCurrBand DECIMAL(19,2) 

DECLARE @tmpBandTotal DECIMAL(19,2) 

DECLARE ©tmpBandWeightPerc DECIMAL(19,8) 

DECLARE ©tmpAccumuiatingPrice DECIMAL(19,8) 

35 DECLARE ©yNetbackMethod INTEGER 

DECLARE ©yNetbackTierLevei VARCHAR{10) 

DECLARE ©yAveragePerDay DECIMAL(19,2) 

DECLARE ©yDailyTotal DECIMAL(19,2) 

DECLARE ©yeffective DATETIME 
40 DECLARE ©ymaxvollevel DECIMAL(19,2) 

DECLARE ©ynetprice DECIMAL(19,8) 

DECLARE ©ynetpricefloor DECIMAL(19,8) 

DECLARE @yKID INTEGER 

DECLARE @yCIDVARCHAR(12) 

45 r 

* Get netback method information off the 

* contract. The default wilt be all or 

* nothing (most common). However, this 

50 * should always be found on the contract. 

* 

* 0 = AH or Nothing 

* 1 = Accumulating 
* 

55 * Also, this area of the code sets the 

* default for the netback to zero. 
* 

* In addition, go and get the default 

* netback tier level off the contract 
60 * in order to know at what level to 

* summarize the volumes when 

* performing the calculation. The 

* default is 'DEAL' if it can't be found 
*or if one is not specified. 

*/ 

SELECT @yNetbackPercentage=0 

SELECT @yNetbackMethod=lSNULL((SELECT tier FROM K WHERE KID=(SELECT KID FROM package WHERE PKG=@PIDx)),0) 
SELECT @yNetbackTierLevel=ISNULL((SELECT NetbackTierLevel FROM K WHERE KID=(SELECT KID FROM package WHERE 
70 PKG=@PIDx))/COMPANr) 
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SELECT @yKID=ISNULL((SELECT KID FROM package WHERE PKG=@PIDx),0) 
SELECT @yCID=ISNULL((SELECT CID FROM package WHERE PKG=@PIDx),") 

/* 

5 * Get the entity, product and service 

* information off the deal table. There 

* has to be a value on the deal (package) 

* table for each of these... 

10 */ 

SELECT @zEntityC!D-ISNULL((SELECT K.EntityCID FROM Packaged WHERE PKG=@PIDx and K.KID=Package.KID),") 
SELECT @zKProductlD=ISNULL((SELECT KProductID FROM Package WHERE PKG=@PIDx),0) 
SELECT @zKServicelD=lSNULL((SELECT KServiceiD FROM Package WHERE PKG=@PIDx),0) 
/* 

*j ^ ******************************************* 

* Now calculate the average volume of 

* gas per day that this particular 

* package has on the system. Remember to 

* use the WhichPrice parameter to determine 
20 * which volume to get. 

* 0=(Nominated Volume) 

* 1=(pipeline actual volume) 

7 

25 EXECUTE uspJLastDay @GasMonthx,@tmpEndDate OUTPUT 

SELECT @tmpDayslnPeriod=(DATEDIFF(day J @GasMonthx,@tmpEndDate) + 1) 
IF @WhichPricex=0 
BEGIN 

IF @yNetbackTierLevel='DEAL' 
30 BEGIN 

SELECT @tmpVolumeTotal=ISNULL((SELECT SUM(Nom) FROM Gaslnv WHERE 

PKG=@PlDx),0) 

END 

IF ©yNetbackTierLeveN'CONTRACT' 
35 BEGIN 

SELECT @tmpVoiumeTotal=ISNULL((SELECT SUM(Gaslnv.Nom) FROM Gaslnv, Package 
WHERE Gaslnv.GasMonth=@GasMonthx AND Gaslnv,DBCR=0 AND 

Gaslnv.PriceType=1 AND Gaslnv.KID=@yKID 

AND Package.PKG=Gaslnv.PKG AND 

40 Package.KProductlD=@zKProductlD),0) 

END 

IF @yNetbackTierLevel='COMPANY' 
BEGIN 

45 SELECT @tmpVolumeTotal=lSNULL((SELECT SUM(Gaslnv.Nom) FROM Gaslnv.Package 

WHERE Gaslnv.GasMonth=@GasMonthx AND Gaslnv.DBCR=Q AND 

Gaslnv.PriceType=1 AND Gasinv.CID=@yCID 

AND Package.PKG=Gaslnv.PKG AND 

Package.KProductlD=@zKProductlD),0) 
50 END 
END 

IF @WhichPricex=1 
BEGIN 

IF @yNetbackTierLevel='DEAL' 
55 BEGIN 



PKG=@PIDx),0) 



SELECT @tmpVolumeTotal=ISNULL((SELECT SUM(PipeiineActuals) FROM Gaslnv WHERE 



END 

IF @yNetbackTierLeve!='CONTRACT 
60 BEGIN 



Gaslnv.Package 



SELECT @tmpVolumeTotal=ISNULL((SELECT SUM(Gaslnv.PipelineActuals) FROM 
WHERE Gaslnv.GasMonth=@GasMonthx AND Gaslnv.DBCR=0 AND 



Gaslnv,PriceType=1 AND Gaslnv.KID=@yKID 
65 AND Package.PKG=Gaslnv.PKG AND 

Package.KProductlD=@zKProductlD) ( 0) 
END 

IF @yNetbackTierLevel='COMPANY' 
BEGIN 
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SELECT @tmpVolumeTotal=ISNULL((SELECT SUM(Gasinv.PipelineActuais) FROM 

Gaslnv,Package 

WHERE Gaslnv.GasMonth=@GasMonthx AND GasInv.DBCR=0 AND 

Gaslnv,PriceType=1 AND Gaslnv.CID=@yCiD 
5 AND Package.PKG=Gaslnv.PKG AND 

Package.KPraductlD=@zKProductiD) ) 0) 
END 

END 

IF (@tmpVolumeTotaI=0) OR {@tmpDayslnPeriod<1) 
10 BEGIN 

SELECT @yAveragePerDay=0 

END 

ELSE 

BEGIN 

1 5 EXECUTE uspJBetProductVoiumeRound @PIDx,@zRound OUTPUT 

SELECT @yAveragePerDay=ROUND(@tmpVolumeTotal/@tmpDayslnPeriod,@zRound) 

END 

r **** 

20 * Determine which effective date of rules 

* should be used. This will be the max 

* effective date where the effective date 

* is either in or prior to the end of the 

* current gas month. Only the set of rules 
25 * associated with the most recent effective 

* date will be used. If a date cannot be 

* found then this function will return 

* a zero percentage (ie. one isn't on 

* the system that precedes the gas 
30 * month). 



60 



*/ 

SELECT @tmpMaxEffective=(SELECT MAX(effective) FROM knetback WHERE KlD=(SELECT KID FROM package WHERE PKG=@PIDx) 
AND (effective<=@tmpEndDate) AND NetBackType=@TypeNetbackx) 

35 IF ©tmpMaxEffective IS NULL 

BEGIN 

SELECT @tmpMaxEffective='01 -01 -1 900' 

END 

r 

* If method 0 {ail or nothing) then go 

* and get the single tier percentage. 

* The tier record will loop through and 

* take the first tier record where the 
45 * volume is greater than or equal then 

* the average volume per day. 

* This is the all or nothing netback 

* pricing tier logic. 

50 7 

IF @yNetbackMethod=0 
BEGIN 

SELECT @yDailyTotal=@yAveragePerDay 

END 

55 ELSE 

BEGIN 

SELECT @yDailyTotai=0 

END 

/* 



* Initialize any fields that may be 

* needed during the loop process. 

7 



65 SELECT @tmpAccumulatingTotaI=@yAveragePerDay 

SELECT @tmpPrevBand=0 
SELECT @tmpAccumuIatingPrice=0 



70 * Now loop through all of the netback 
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* price records attached to the contract. 
*/ 

5 DECLARE NetbackCursor CURSOR LOCAL FORWARD_ONLY STATIC FOR 

SELECT 

effective, 

maxvollevel, 

netprice 

1 0 FROM 

kNetBack 

WHERE 

(Kl DESELECT KID FROM Package WHERE PKG=@PIDx)) AND 
(effective=@tmpMaxEffective) AND 
1 5 (maxvollevel>=@yDailyTotal) AND 

(NetbackType=@TypeNetbackx) 

ORDER BY 

maxvollevel asc 

OPEN NetbackCursor 

20 FETCH NEXT FROM NetbackCursor INTO @yEffective,@ymaxvollevei,@ynetprice 

WHILE @@FETCH_STATUS = 0 
BEGIN 

IF @yNetbackMethod=0 
BEGIN 

25 IF @yNetbackPercentage=0 

BEGIN 

SELECT @yNetbackPercentage=ROUND(@ynetprice I 4) 

END 

END 

30 ^xumxu, *********** 

* If method 1 (accumulating) then go 

* through and weight each tier to derive 

* a percentage. We know the total volume 
35 * for the month each tier will provide us 

* with the weighting information we need. 

*/ 

IF @yNetbackMethod=1 
40 BEGIN 

IF @tmpAccumulatingTotal>Q 
BEGIN 

SELECT @tmpCurrBand=(@ymaxvollevel-@tmpPrevBand) 
IF @tmpCurrBand<=@tmpAccumuiatingTotal 
45 BEGIN 

SELECT @tmpBandTotal=@tmpCurrBand 
SELECT 

@tmpAccumuIatingTotal=(@tmpAccumulatingTotal-@tmpCurrBand) 

END 

50 ELSE 

BEGIN 

SELECT @tmpBandTotal=@tmpAccumulatingTotal 
SELECT @tmpAccumulatingTotaI=0 

END 

55 SELECT @tmpBandWeightPerc=@tmpBandTotal 

SELECT @tmpBandWeightPerc=@tmpBandWeightPerc/@yAveragePerDay 
SELECT 

@tmpAxumulatingPrice=@tmpAccumulatingPrice+ROUND((@ynetprice*@tmpBandWeightPerc) ) 4) 

END 

60 SELECT @tmpPrevBand=@ymaxvoilevei 

END 

FETCH NEXT FROM NetbackCursor INTO @yEffective,@ymaxvoilevei,@ynetprice 

END 

CLOSE NetbackCursor 
65 DEALLOCATE NetbackCursor 

/* 



70 



* Get the last accumulating price here 
*and use this price... 



****************** 
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*/ 

IF @yNetbackMethod=1 
BEGIN 

SELECT @yNetbackPercentage=@tmpAccumuiatingPrice 

5 END 

/* 



10 * At this point a calculated netback 

* percentage has been derived. Now 

* check to see if the calculated netback 

* percentage is less than the 'floor 1 

* amount setup on the contract If so, 
1 5 * then use the floor amount. 



itJck 4ck Irk irk ** irfrki 



SELECT @ynetpricefloor=ISNULL((SELECT NetPriceFloor FROM K WHERE K!D=(SELECT KID FROM Package WHERE PKG=@PlDx)),0) 
IF @ynetpricefloor<>0 
20 BEGIN 

IF @ynetpricefloor>@yNetbackPercentage 
BEGIN 

SELECT @yNetbackPercentage=@ynetpricefloor 

END 

25 END 
END 



30 



35 



40 



GO 

SET QUOTED .IDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENT1FIER ON SET ANSI.NULLS ON 
GO 



CREATE PROCEDURE uspJGetWASPlndicator( 
45 @PIDx INTEGER, 

@yWasplndicatorVARCHAR(10) OUTPUT 

) 

AS 

BEGIN 

50 C- ^u^^:^^ .-..:.u,u,u,. 

Name: uspJGetWasplndicator 

Description: This function will return the WASP indicator for the package ID that 
55 was sent as an input parameter. The WASP indicator is based on the combination of 

deal classifications that have been established for this deal. The default indicator 
is 'None' (ie if classification information can't be found/etc). All combinations of 
deal classifications should be setup. 

60 Inputs: PIDx {package ID). 

Outputs: A 'Comon' or 'Dedicated' or 'None' indicator which specifies whether 
or not this package is considered 'WASP'able. 

65 History: 

05/12/1999 JAMIE Original Creation. 

08/03/1999 JAMIE Modification to use the deal classification indicators 
70 off of the package table versus the dealclass table. 
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*/ 
/* 

* Declare all exceptions, cursors 

* and local variables that will be 

* utilized by this procedure, 
************** ******** ******************** 

10 */ 

DECLARE ©yDealContextfD INTEGER 
DECLARE ©yDealTypelD INTEGER 
DECLARE ©yDealVolumeVolID INTEGER 
DECLARE ©yDealPricePeriodlD INTEGER 

1 5 DECLARE ©yDeallnterruptiblelD INTEGER 

r ******** 

* Populate the various deal classification 

* identifiers based on the information 
20 * stored on the package table. 

*/ 

SELECT 

©yDealContextID = PackageDBCR, 
25 ©yDealTypelD = DealTypedcID, 

©yDealVolumeVolID = VolumeVolatiiitydciD, 
©yDealPricePeriodID = PricePerioddciD, 
©yDeallnterruptiblelD = InterruptibledclD 
FROM 

30 



55 



65 



70 



WHERE 

PKG=@PIDx 



35 * Now go and get the WASP indicator for 

* this particular deal. 



*/ 

SELECT @yWasplndicator=ISNULL((SELECT IncludelnWasp FROM rDealCiassRules 
40 WHERE 

DealContext=@yDealContextlD AND 
DealTypedclD=@yDealTypelD AND 
VoiumeVolatilitydclD=@yDealVoIumeVollDAND 
PricePerioddcl D=@y DealPricePeriod I D AND 
45 lnterruptibiedclD=@yDeallnterruptiblelD);None') 
END 



GO 

50 SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 

GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
GO 

CREATE PROCEDURE uspJGetWaspType( 

©PIDx INTEGER, 

©yWaspType VARCHAR(12) OUTPUT 



60 AS 

BEGIN 



Name: uspJGetWaspType 

Description: This function will return the WASP type field to use for the 
specific package (deal) that is being looked at. This type is based on the 
product id setup for the deal. 
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10 



65 



70 



Inputs: 

PIDx (package ID). 
Outputs: 

yWaspType - 'OIL'/LIQUIDS', OR 'GAS'. 
History: 

12/03/2000 JAMIE Original Creation. 



15 r 



* Declare ail exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 

*/ 

DECLARE @yDealProductVARCHAR(50) 
DECLARE ©yDealProductID INTEGER 
/* ^ 

* Initialize the return value to be GAS 



20 



25 



7 

SELECT @yWaspType='GAS' 
30 /* 

* Get the contrat ID off the deal 

* (package) table, 

35 7 

SELECT ©yDealProductID = ISNULL((SELECT KProductID FROM package where PKG=@PIDx),0) 

/* 



* If a contract ID was found then 
40 * based on the value then convert 

* the netback type. 

7 

IF ©yDealProductID <> 0 
45 BEGIN 

SELECT ©yDealProduct = ISNULL((SELECT shortdescription FROM SEProcessingCodes WHERE processingcodeid 
@yDea[ProductlD)/Gas') 

IF@yDealProduct = 'Gas' 
BEGIN 

50 SELECT @yWaspType='GAS' 

END 

IF @yDea!Product = 'Oir 
BEGIN 

SELECT @yWaspType='01L' 

55 END 

IF @yDealProduct = 'Liquids' 
BEGIN 

SELECT ©yWaspType^LIQUIDS' 

END 

60 END 
END 



GO 

SET QUOTEDJDENTIF1ER OFF SET ANSI.NULLS ON 
GO 
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SET QUOTEDJDENTIFIER ON SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp JsLastDay( 



AS 

BEGIN 

DECLARE @LDx DATETIME 
10 DECLARE @a INTEGER 

EXECUTE usp_fLastDay @DT,@LDx OUTPUT 
IF @LDx=@DT 

BEGIN 

SELECT @a=1 

15 END 
ELSE 

BEGIN 

SELECT @a=0 

END 

20 RETURN(@a) 
END 



GO 

25 SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 

GO 



30 



45 



65 



@DT DATETIME 



SET QUOTEDJDENTIFIER ON SET ANSLNULLS ON 
GO 



CREATE PROCEDURE uspjastday( 



35 AS 

BEGIN 
/* 



©lastdate DATETIME, 
@ldx DATETIME OUTPUT 

) 



* Initially, just set the return value to be 
40 * equal to the date coming in. 



7 

SELECT @ldx=@lastdate 
/* 

********************************************** 

* Now, loop thru adding 1 day to the date 

* while the month is still equal. 



*/ 

50 WHILE MONTH(@ldx)=MONTH(@lastdate) 

BEGIN 

SELECT @!dx=DATEADD(DAY,1 ,@ldx) 

END 

* Since the loop would have finished with 

* the date being 1 day greater than the 

* fast day of the month, then back it off 

* one day here to get the true end of 

60 * month value.,. 

********************************************** 



7 

SELECT @ldx=DATEADD(DAY,-1 ,@Idx); 
END 



GO 

70 SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
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20 



30 



45 



55 



60 



GO 



SET GUOTEDJDENTIFIER ON SET ANS1.NULLS ON 
GO 

CREATE PROCEDURE uspJ3asDayToGasMonth( 



©GasDayX DATETIME, 
©GasMonthX DATETIME OUTPUT 



10 AS 

BEGIN 
/* 

********************************************** 

* Initially, just set the return value to be 

1 5 * equal to the date coming in. 

********************************************** 

7 

SELECT @GasMonthX=@GasDayX 
/* 



* Now, loop thru subtracting 1 day to the 

* date while the month is still equal. 



7 

25 WHILE MONTH(@GasMonthX)=MONTH(@GasDayX) 

BEGIN 

SELECT @GasMonthX=DATEADD(DAY,-1 .©GasMonthX) 

END 

/* 



***************** 



* Since the loop would have finished with 

* the date being 1 day less than the 

* first day of the month, then bump it up 

* one day here to get the true beginning of 
35 * month value... 



40 



7 

SELECT @GasMonthX=DATEADD(DAY,1 ,@GasMonthX) 
END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTEDJDENTIFIER ON SET ANSLNULLS ON 
GO 



CREATE PROCEDURE usp_GetProductVolumeRound{ 
50 @PKGx INTEGER, 

©RoundNumber INTEGER OUTPUT 

) 

AS 
/* 



***************************************** 
Name: usp_GetProductRound 

Description: Get the value used to round volumes to based on the information 
in the processing codes table (typelimit field). 



Inputs: 

RoundN umber - Number of digits to round calculations too. 
65 Outputs: 
None 
History: 

70 
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1 1/23/2000 JAMIE Original creation. 



r*******iHc********************* ******************* 



5 BEGIN 

DECLARE ©zRoundNumber INTEGER 

SELECT ©zRoundNumber = ISNULL((SELECT SP.TypeLimit FROM SEProcessingCodes AS SP, Package WHERE SP.ProcessingCodelD 
Package.KProductID AND Package.PKG=@PKGx),0); 
SELECT ©RoundNumber = ©zRoundNumber 
10 END 



15 



30 



65 



GO 

SET QUOTEDJDENTIFiER OFF SET ANSLNULLS ON 
GO 



20 SET QUOTEDJDENTIFiER OFF SET ANSLNULLS ON 

GO 

CREATE PROCEDURE uspJJnePrice( 

@nETID INTEGER, 

25 ©nNomOrAct INTEGER 

) 

AS 

BEGIN 



*****************************tHt*****^ 

Name: uspJJnePrice 



Description: This procedure will calculate the line price for a specific Engine 
record. The input parameter nETID represents a unique key to a specific Engine 
35 record, in addition, the nNomOrAct parameter specifies whether or not to post the 

price line information to the nomination area or the actual area of the engine 
record. The volgroup field on the engine record contains the unique package (deai) 
id. This is used in the link to get the actual price components for the package. 

40 Inputs: 

nETID = Engine Key 

nNomOrAct = {0=Nomination, ^Actualization) 

45 Outputs: 

Either an updated PriceOrRateNom or PriceOrRateAct field on the Engine record. 

The precise field updated depends on the input parameter sent to this process (nNomOrAct). 

50 History: 

xx/xx/xx (?) CHIP Original Creation. 

04/29/99 JAMIE Modified for WASP 2.10 Release. Structure changes 
55 made to the Engine and Engine Jvlaster tables. In 

addition, all documentation added. This particular 

portion of the system required extensive changes 

due to the need to store a nom and actual number 

and because ail price components are now stored 
60 off the Engine_MasterPrice table (STID's 8 and 9). 

06/22/2000 JAMIE Modified to pull in the entity, product and service 
in order to get the correct price off the wasp table (values are passed 
to the wasp routine). 



1 1/10/2000 JAMIE Converted to Transact-SQL 



t********************************* 



*/ 

70 I* 
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****************************************** 

* Declare all exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 



10 



15 



20 



25 



30 



35 



40 



7 

DECLARE @xEngine_Effective DATETIME 
DECLARE @xETlD INTEGER 
DECLARE ©xSequenceNo INTEGER 
DECLARE ©xPriceTag VARCHAR(20) 
DECLARE ©xOperandVariable VARCHAR(1) 
DECLARE ©xPriceVariabie VARCHAR(15) 
DECLARE ©xPriceEntryType VARCHAR(12) 
DECLARE ©xEffective DATETIME 
DECLARE @xTID INTEGER 
DECLARE ©xEntityCID VARCHAR(12) 
DECLARE ©xKProductID INTEGER 
DECLARE ©xKServicelD INTEGER 
DECLARE ©yPrice DECIMAL(19,6) 
DECLARE @yPrice!nterimValue DEC1MAL(19,6) 
DECLARE ©yMonthDate DATETIME 
DECLARE ©zTemp DECIMAL(19,6) 

DECLARE Engine J/lasterPriceAII CURSOR LOCAL FORWARD.ONLY STATIC FOR 
SELECT DISTINCT 
emp.ETID, 
emp.SequenceNo, 
emp.PriceTag, 
emp.OperandVariable, 
emp.PriceVariable, 
pcPriceEntryType, 
em.Effective, 
e.TID, 
k.entitycid, 

package.KProductlD, 
package.KServicelD 
FROM 

engine_masterprice AS emp, 

engine AS e, 

engine jnaster AS em, 

pricecomponents AS pc, 

gasinv, 



45 



50 



55 



WHERE 



ORDER BY 



package 

(e.ETID=@nETID) AND 
(em.ETID=e.EM_ETID) AND 
(emp.ETlD=em.ETID) AND 
(gasinv.tid^e.tid) AND 
(k.kid=gasinv.kid) AND 
(package, pkg^gasinv.pkg) AND 
(pc.PriceTag=emp.PriceTag) AND 
(emp.NomOrActual=@nNomOrAct) 

{ 

emp.ETID, 
emp.SequenceNo 



60 



65 



70 



*^******^******************************* 

* Initialize all fields here... 

7 

SELECT @yPrice=0 

SELECT @yPricelnterimValue=0 

/* 

* Open the cursor to get the pricing 

* information and loop through all of 

* the price component records. The end 

* result price will ultimately be 

* updated on the engine record. 
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r***1H^******************** 



*/ 

OPEN Engine„MasterPriceAI! 
FETCH NEXT FROM Engine_MasterPriceAII INTO 
5 {^ETID^SequenceNo.^PriceTag^OperandVariable.QxPriceVariable^PriceEntryType, 

@xEffective,@xTID,@xEntityClD t @xKProductlD,@xKServiceiD 

WHILE @@FETCH_STATUS = 0 
BEGIN 

/* 

* Derive the gas month based on the 

* effective from the engine 

* record. 

15 7 

SELECT @xEngine_Effective=(SELECT effective FROM engine WHERE ETID=@nETID) 
EXECUTE usp_GasDayToGasMonth @xEngine_Effective,@yMonthDate OUTPUT 
/* 

20 * Convert the price variable portion to a 

* number. If an index then get the index 

* amounts. The default price for any 

* component not in this case statement is 

* zero (ie.. WASP, UNKNOWN, etc.). 

*/ 

SELECT @yPricelnterimValue = 0 
IF ©xPriceEntryType-Numeric' 
BEGIN 

30 SELECT @yPricelnterimValue=CAST(@xPriceVariable AS DECIMAL(19,6)) 

END 

IF @xPriceEntryType='Monthly IDX 
BEGIN 

EXECUTE uspJGetlndex@yMonthDate ; @yMonthDate f @xPriceVariable 1 @yPricelnterimValue 

35 OUTPUT 

END 

IF @xPriceEntryType='Daily IDX' 
BEGIN 

EXECUTE uspJGetlndex 
40 @yMonthDate,@xEngine_Effective ; @xPriceVariable,@yPricelnterimValue OUTPUT 

END 

IF @xPriceEntryType='Basket IDX 
BEGIN 

EXECUTE uspJGetlndexBasket 
45 @yMonthDate,@xE ngine_Effective,@xPrice Variable, ©yPricelnterimValue OUTPUT 

END 

IF @xPriceEntryType- Wasp' 
BEGIN 

EXECUTE uspJGetCaiclndex 

50 <^TID ) @nNomOrAd,@xEn%CID I (^KPro^ 

END 

IF ©yPricelnterimValue IS NULL 
BEGIN 

SELECT @yPrice!nterimValue = 0 

55 END 

r 

********** **** ** **************** ********** 

* At this point the yPriceinterim Value 

* contains the individual price component 
60 * amount Now, depending on the operator, 

* apply this to the current total 

* (yPrice). The end result is yPrice 

* being updated with this component amount. 
****************************************** 

65 7 

IF @xOperandVariabie-+' 
BEGIN 

SELECT @yPrice=@yPrice+@yPriceinterimValue 

END 

70 IF @xOperandVariable='-' 



-39- 



BEGIN 

SELECT @yPrice=@yPrice-@yPricelnterimValue 

END 

IF ©xOperandVariable-* 
5 BEGIN 

SELECT @yPrice=@yPrice*@yPricelnterimVaIue 

END 

IF @xOperandVariable=V 
BEGIN 

10 IF (@yPrice<>0) AND (@yPricelnterimValue<>0) 

BEGIN 

SELECT @yPrice=@yPrice/@yPricelnterimVaIue 

END 

END 

1 5 FETCH NEXT FROM EngineJVIasterPriceAII INTO 

<^ETlD,@xSequenceNo,(^PriceTag,@xOperand^^ 

©xEffective^TID.^EntityCID.gxKProductlD.gxKServicelD 
END 

20 CLOSE Engine_MasterPriceAil 

DEALLOCATE Engine_MasterP rice All 

r 

^HH^************************************* 

* Finally, take the results of the price 

25 * components and update the engine record 

* with the price. 
* 

* If nom calculation then update then 

* nom price. If actual calculation then 

30 * update the actualized price. 

**************************** ************** 

*/ 

IF @nNomOrAct=0 
BEGIN 

35 UPDATE 

Engine 
SET 

PriceOrRateNom=@yPrice 



WHERE 

40 ETID=@nETID 
END 

IF @nNomOrAct=1 
BEGIN 

UPDATE 

45 Engine 



60 



SET 
WHERE 



50 END 
END 



55 



PriceOrRateAct=@yPrice 
ETID=@nETID 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSl.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI_NULLS ON 
GO 

CREATE PROCEDURE usp_message{ 
65 ©messagex VARCHAR(255) 

) 

AS 
/* 

70 Name: uspjnessage 
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Description; This routine will dictate where and how messages from the system 
will (or will not) be posted. These are transitory messages generated by the 
system (like during a calculation). 

5 

Inputs: 

messagex - Text message to write 
1 0 Outputs: 
None 



1 5 History: 

11/07/2000 JAMIE Original creation. 

,Ht**iHt********************************^ 

20 7 

BEGIN 

DECLARE ©tmpMessage VARCHAR(254) 

r 

INSERT INTO ApplicationMessages (Application MessageText) VALUES (©messagex) 

25 

PRINT ©messagex 
7 

SELECT ©tmpMessage = ©messagex 
30 END 



35 



40 



45 

GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

50 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPrice( 
55 @PIDx INTEGER, 

@WhichPricex INTEGER, 
©GasMonthx DATET1ME, 
©DBCRx INTEGER 
) 

60 AS 

BEGIN 
I* 

*********************************************^^ ************* **************** 

Name: usp_PSPrice 

65 

Description: Price all of the gas inventory items. 
History: 

70 xx/xx/xx (?) CHIP Original Creation. 
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05/03/99 JAMIE Modified for WASP 2.10 Release. Structure changes 
made to the Engine and Engine_Master tables. In 

addition, all documentation added. In addition modifications were made to drive the 
5 pricing off package identifier versus Gas Inventory Transaction Identifier (TID). Since 

all pricing is done at a package level. 

Only those entries within the gas inventory with pricetype=1 
will be processed by this procedure. These entries represent 
1 0 only the purchase and sale items AND SHOULD HAVE Engine_Master 

records associated with them. 

07/1 2/2000 JAMIE Modified to check for the actualizedflag on the 
gasinv record. If the flag is set to a Y then set the price accordingly. If 

1 5 the flag is set to something other than a T (ie.. 'N* or null) then the 

price will automatically get a zero. The price or rate number for actuals 
will still calculate AND it is possible that some meters within a deal will 
calculate (if the flag is set) while other meters on the same deal will not 
(if the flag is not set). The engine record is where all calculated results 

20 are stored and will contain zeros for the entries that have not been 

setup to be actualized. 



25 r xxxxxxxxxlxxxxxxxxxxxx ^ 

* Declare all variables and cursors 

* that are needed by this process. 

30 */ 

DECLARE ©tmpEndDate DATETIME 

DECLARE ©tmpNextEffectiveDate DATETIME 

DECLARE ©tmpNumberDays INTEGER 

DECLARE ©tmpVoiumelnPeriod DECIMAL(19,2) 
35 DECLARE ©tmpDateToUse DATETIME 

DECLARE @yTID INTEGER 

DECLARE ©yActualizedFlag VARCHAR(1) 

DECLARE ©ySTID INTEGER 

DECLARE ©yEffective DATETIME 
40 DECLARE ©yETID INTEGER 

DECLARE ©zRound INTEGER 

DECLARE GaslnventoryCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
45 SELECT 

DISTINCT 
TID, 

ActualizedFlag 
FROM 

50 Gasinv 

WHERE 

(PKG=@PIDx) AND 
(PriceType=1)AND 
(DBCR=@DBCRx) 

55 /* 



* At this point the calculation needs to 

* happen. Iterate through each of the 

* inventory items attached to this particular 
60 * package... Only STID's of 8 or 9 are 

* priced here... (STID=8 is DBCR=0 is a 

* purchase),(STID=9 is DBCR=1 is a sale). 
* 

* Within each inventory item go through 
65 * each effective date/STID and use the 

* pricing rules to determine whether the 

* pricing accumulates or is all or 

* nothing. 

70 */ 
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EXECUTE uspJBetProductVolumeRound @PIDx,@zRound OUTPUT 
OPEN GaslnventoryCursor 

FETCH NEXT FROM GaslnventoryCursor INTO @yTID,@yActualizedFlag 
WHILE @@FETCH„STATUS = 0 
5 BEGIN 

DECLARE EngineCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

DISTINCT 
e.ETID, 

1 0 e. Effective, 

e.STID, 
e.TID 
FROM 

Engine AS e, 

15 EngineJvlasterASem 

WHERE 

(em.ETlD=e.EM_ETID) AND 
(em.PID=e.VolGroup) AND 
(e.TID=@yTID) 

20 ORDER BY 

e.ETID 

OPEN EngineCursor 

FETCH NEXT FROM EngineCursor INTO @yETID,@yEffective,@ySTID,@yTtD 
WHILE @@FETCH_STATUS = 0 
25 BEGIN 

/* 

* Calculate and update the engine with the 

* the actual price from the engine_master 
30 * via call to the following function. 

*/ 

EXECUTE uspJJnePrice @yETID t @WhichPricex 

r 

^ ^ ****************************************** 

* Determine the volume total to be applied 

* to this price line here. This represents 

* the sum of the volume between the 

* effective date and the end of the 
40 * month OR the next price effective 

* date for this item. The value of 

* tmpNumberDays contains the number of 

* days to apply the price and volumes 

* toward within the calculation. 

45 ****************************************** 

*/ 

EXECUTE usp JLastDay @GasMonthx,@tmpEndDate OUTPUT 
SELECT @tmpNextEffectiveDate=(SELECT MIN(effective)-1 FROM engine AS e WHERE 
(e.TID=@yTID) AND (e.STID=@ySTID) AND (e.Effective>@yEffective)) 
50 IF ©tmpNextEffectiveDate IS NULL 

BEGIN 

SELECT @tmpNextEffectiveDate=@tmpEndDate 

END 

IF @tmpNextEffectiveDate<@tmpEndDate 
55 BEGIN 

SELECT @tmpDateToUse=@tmpNextEffectiveDate 

END 

ELSE 

BEGIN 

60 SELECT @tmpDateToUse=@tmpEndDate 

END 

SELECT @tmpNumberDays=DATEDIFF(day,@yEffective ( @tmpDateToUse) + 1 
IF @WhichPricex=0 
BEGIN 

65 SELECT @tmpVolumelnPeriod=ISNULL((SELECT SUM(Nom) FROM 

GaslnvD WHERE (GaslnvD.TID=@yTID) 

(GaslnvD.GasDay BETWEEN ©yEffective AND @tmpDateToUse)),0) 

END 

70 IF @WhichPricex=1 



AND 
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BEGIN 

lF@yActuaIizedFlag=T 
BEGIN 

SELECT @tmpVolumelnPeriod=ISNULL((SELECT 

5 SUM(PipeiineActuals) FROM GaslnvD WHERE (GaslnvD.TlD=@yTID) 

AND (GasinvD.GasDay BETWEEN ©yEffective AND @tmpDateToUse)),0) 

END 

ELSE 

10 BEGIN 

SELECT @tmpVolumelnPeriod=0 
END 

END 

/* 



15 



* Update the actual engine volumes and 

* amounts here... 



7 

20 IF @WhichPricex=0 

BEGIN 

UPDATE 

Engine 
SET 

25 Volume=ROUND(@tmpVolumeInPeriod,@zRound) p 

Amount=ROUND((@tmpVoIumelnPeriod*Engine.PriceOrRateNom) ) 2) 

WHERE 

ETlD=@yETID 

30 END 

IF @WhichPricex=1 
BEGIN 

UPDATE 

Engine 

35 SET 

VolumeAct=ROUND(@tmpVo!umelnPeriod,@zRound) t 

AmountAct=ROUND{(@tmpVolumelnPeriod*Engine.PriceOrRateAct),2) 

WHERE 

40 ETID=@yETlD 

END 

FETCH NEXT FROM EngineCursor INTO ©yETlD.QyEffective.QySTlD.gyTID 

END 

CLOSE EngineCursor 
45 DEALLOCATE EngineCursor 

FETCH NEXT FROM GaslnventoryCursor INTO @yT!D,@yActualizedFlag 

END 

CLOSE GaslnventoryCursor 
DEALLOCATE GaslnventoryCursor 
50 END 



55 GO 

SET QUOTED JDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
60 GO 

CREATE PROCEDURE usp_PSPriceAII( 

©GasMonthx DATETIME, 
©DebitCreditx INTEGER, 

65 ©WhichPricex INTEGER, 

@PKGx INTEGER, 
@EntityCIDxVARCHAR(12), 
©includelnWASPx VARCHAR(10) 
) 

70 AS 
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10 



25 



30 



45 



55 



BEGIN 

/* 

Name: usp_PSPriceAII 
Description: 

Loop thruough all packages (deals) involved within a given month (purchase 
or sale) and invoke the price procedures. 

Inputs: 



GasMonthx (Gas Month to price), 
DebitCreditx (0=Debit (Purchases) - 1=Credit (Sales)), 
1 5 WhichPricex (0=Nominations t ^Actualizations 

PKGx (0=all otherwise specific package ID) 
EntityCIDx (owning company entity id) 

IncludelnWASPx (" for all, otherwise check for'CommonVDedicated', or 'None') 

20 History: 

05/13/99 JAMIE This entire process was rewritten with V2.10 of 
the Gas Control System. Package driven now 
instead of individual inventory item driven. 



07/22/99 JAMIE Include 3rd party deals within the 
calcualtion process. They WILL NOT BE included within the WASP calculations 
and will be treated the same as "Dedicated" (sanctioned sales) deals. This 
will ensure they are not affecting any other pricing component. 



05/24/2000 JAMIE Modified to include the changes to calculate based on company 
entity ID (passed to this calculation). This ensures that WASP calculations/etc 
are all within their respective companies... The deal cursor (PackageCursor) 
wiil now only select those items where the entity ID for the contract on the deal 
3 5 matches the one passed to this routine. 

07/26/2000 JAMIE Modified to include the includelnWaspx parameter to 
this particular procedure. This will allow certain types of deals to 
be priced independently of other types (ie.. do 3rd party first in order 
40 to divie the proceeds either to a pool OR to another deal). 



/* 

****************************************** 

* Declare all variables and cursors 

* that are needed by this process. 
****************************************** 



*/ 

50 DECLARE ©zTypeText VARCHAR(10) 

DECLARE ©zMessage VARCHAR(255) 



DECLARE @yPKG INTEGER 

DECLARE ©yinciudelnWasp VARCHAR(10) 



DECLARE PackageCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

DISTINCT 
Gaslnv.PKG 
60 FROM 

Gaslnv, 

Package, 

K 

WHERE 

65 Package.PKG=Gasinv.PKG AND 

K.KID=Package.KlD AND 
K.EntityCID=@EntityCIDx AND 
GasInv.GasMonth=@GasMonthx AND 
Gasinv.DBCR=@DebitCreditx AND 

70 Gasinv.PriceType=1 
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SELECT @zTypeText='Sale' 



ORDER BY 

Gaslnv.PKG 

/* 

5 * Initialize any fields required. 

7 

IF @DebitCreditx=0 
BEGIN 

1 0 SELECT ©zTypeText-Purchase' 

END 

IF @DebitCreditx=1 
BEGIN 

15 END 

r 

'k'kirk'k'kitfiit^^^ir'^it'kit'k'k'ki 

* Loop through each package 

* involved in this calculation. As each 
20 * deal is fetched get its WASP indicator 

* information in order to determine if 

* it can be involved in this process. 

7 

25 OPEN PackageCursor 

FETCH NEXT FROM PackageCursor INTO @yPKG 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

30 EXECUTE uspJGetWASPIndicator @yPKG,@ylncludelnWasp OUTPUT 

IF (@PKGx=0) OR ((@PKGx<>0) AND (@PKGx=@yPKG)) 
BEGIN 

IF (@lnc!udelnWaspx=") OR (@lncludelnWaspx=@ylncludelnWasp) 
BEGIN 

35 SELECT ©zMessage = 'PSPriceAII Running for Entity 

, f@EntityClDx+' and type , 4@zTypeText+', Package:'*' , 4CONVERT(VARCHAR(10) I @yPKG)+ 1 .... 1 

EXECUTE uspjnessage ©zMessage 
/* 

40 * Reset the financial override dollar 

* amount to zeros at the beginning of the 

* calculate for the deal... 



45 



50 



7 

IF @WhichPricex=Q 
BEGIN 
UPDATE 



package 
SET 



FinancialNomAmount=0 



55 



60 



END 

IF @WhichPricex=1 
BEGIN 
UPDATE 



WHERE 



package 
SET 



PKG=@yPKG 



FinanciaiActAmount=0 



65 



WHERE 



END 



PKG=@yPKG 



70 



* Create any system generated pricing 

* components for this package... These 
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10 



15 



20 



25 



30 



35 



@yPKG ( @WhichPrioex,@GasMon1hx,eDebitCreditx 



©yPKG.QWhichPricex.QGasMonthx.gDebitCreditx 



@yPKG,@WhichPricex 1 @GasMonthx ( @DebitCrBditx 



END 



* pricing components are tightly related 
*to the Engine_Master. This is needed 

* to be done prior to populating the 

* Engine with pricing information. 



7 

EXECUTE usp_PSPriceComponentsCheck 

r 

****************************************** 

* Now create all engine items for all 

* Engine_Master records. This is where 
*the engine will be populated with entries 

* based on information stored in the 

* Enginejvlaster. Included is the daily 

* index price 'proliferation' routine. 



t ******************* 



7 

EXECUTE usp_PSPricePopuiateEngine 
/* 

* Finally, now go and price the actual 

* engine entries that were created in the 

* previous step... 
****************************** 

7 

EXECUTE usp_PSPrice 



END 

COMMIT WORK 

FETCH NEXT FROM PackageCursor INTO @yPKG 

END 

CLOSE PackageCursor 
DEALLOCATE PackageCursor 
END 



40 



45 



50 



55 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

CREATE PROCEDURE uspJ>SPriceAnyNewlnvoicesNeeded( 



AS 

BEGIN 



©GasMonthx DATETIME, 
©EntityCIDx VARCHAR(12) 



rt************************************* *************************** 



60 



65 



70 



Name: usp_PSPriceAnyNewlnvoicesNeeded 
Description: 

This routine gets executed once a gas month has been put 
in an 'Invoiced' status. It will automatically go out and assign and invoice 
number where one previously did not exist (could use the same invoice 
number as an existing). 

Inputs: 
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GasMonthx - Gas month being calculated 
EntityCIDx - owning company 



10 



20 



History: 

12/15/1999 JAMIE Original creation 

12/21/1999 JAMIE Modify to put the monthly aphabetic code as the first 
field of the invoice number to eliminate OGSYS clipping of a leading zero. 

05/24/2000 JAMIE Modified to only create the invoices within the given owning 
company. The invoice numbers will need to be unique within the entire system. 



15 7 



* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE @yTID INTEGER 

DECLARE @yCIDVARCHAR(12) 

DECLARE ©yPipe VARCHAR(12) 
25 DECLARE ©zAcctgldentifier VARCHAR(1 2) 

DECLARE @zYear INTEGER 

DECLARE ©zYearString VARCHAR(1) 

DECLARE ©zMonth INTEGER 

DECLARE ©zMonthString VARCHAR(1) 
30 DECLARE ©zNumToUse INTEGER 

DECLARE ©zNumToUseLength INTEGER 

DECLARE ©zNumToUseString VARCHAR(3) 

DECLARE ©zNumToUseZeros VARCHAR(3) 

DECLARE ©zMaxAcctg Identifier VARCHAR(12) 
35 DECLARE ©zWorkString VARCHAR(12) 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

Gasinv.TID, 

40 Gasinv.CID, 

Gaslnv.PipeField 
FROM 

Gaslnv, 
Package, 

45 K 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv. PriceType=1 AND 
Gasinv.DBCR=1 AND 

50 (Acctgldentifier IS NULL OR Acctgldentifier=") AND 

Package. PKG=Gaslnv.PKG AND 
K.KID=Package.KID AND 
K.EntityCID=@EntityCIDx 

ORDER BY 

55 Gasinv.CID, 

Gaslnv.PipeField 

/* 

* Determine the prefix to use for the 

60 * creation of the invoice numbers. If more 

* than 10 years then these numbers begin 

* to be reused. 

* This routine is CHEAP but it should 
65 * suffice. 

*/ 

SELECT @zYear=YEAR(@GasMonthx) 

SELECT @zYearString=RlGHT(CONVERT(VARCHAR{4),@zYear),1) 
70 SELECT @zMonth=MONTH(@GasMonthx) 
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IF @zMonth=1 

BEGIN 

END 

5 IF @zMonth=2 

BEGIN 

END 
IF @zMonth=3 
10 BEGIN 



SELECT @zMonthString='A' 
SELECT @zMonthString='B' 
SELECT ©zMonthString^C 



END 
IF @zMonth=4 

BEGIN 

1 5 SELECT @zMonthString='D' 

END 
IF @zMonth=5 

BEGIN 



20 END 

IF @zMonth=6 

BEGIN 

END 

25 lF@zMonth=7 

BEGIN 

END 
IF @zMonth=8 
30 BEGIN 



SELECT @zMonthString='E' 
SELECT @zMonthString='F' 
SELECT @zMonthString='G' 
SELECT @zMonthString='K 



END 
IF @zMonth=9 

BEGIN 

35 SELECT @zMonthString=T 

END 

IF @zMonth=10 

BEGIN 



40 END 
IF@zMonth=11 

BEGIN 

END 

45 IF @zMonth=12 

BEGIN 

END 

/* 



SELECT @zMonthString='J' 
SELECT @zMonthString='K' 
SELECT @zMonthString=V 



******* *i 



* Find the starting point to begin 

* assigning new invoices from just 

* in case some numbers need to be 

* assigned. 



50 



55 

7 

SELECT @zNumToUse=0 

SELECT @zMaxAcctgldentifieF(SELECT max(Acctg Identifier) FROM Gasinv WHERE GasMonth=@GasMonthx AND DBCR=1 AND 
PriceType=1) 
60 IF LEN(@zMaxAcctgidentifier) = 6 

BEGIN 

SELECT @zWorkString=RlGHT(@zMaxAcctgldentifier,4) 

SELECT @zWorkString=LEFT(@zWorkString ,3) 

SELECT @zNumToUse=CONVERT(INTEGER ( @zWorkString) 

65 END 

r 



* Now go get the records that do not 

* yet have a invoice number assigned 
70 * to them (ie. execute the cursor). 
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10 



15 



35 



50 



****************************************** 

7 

OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yTlD,@yCID,@yPipe 
WHILE @@FETCH_STATUS = 0 
BEGIN 

/* 

****************************************** 

* Now go and find one, if one exists. 
****************************************** 



7 

SELECT @zAcctg!dentifier=(SELECT DISTINCT(Acctgldentifier) FROM Gaslnv WHERE GasMonth=@GasMonthx AND 

DBCR=1 AND PriceType=1 AND CID=@yClD AND PipeField=@yPipe 

AND Acctgldentifier IS NOT NULL AND Acctgldentifiero") 

IF ©zAcctgldentifier IS NULL 
BEGIN 

/* 

20 * For each of these combinations generate 

* and invoice number and update the Gaslnv 

* table... Make sure that the number 

* to use is padded with zeros in order 

* to create a complete invoice number. 

25 * REALLY CHEAP ZERO PADDING. 

****************************************** 

7 

SELECT @zNumToUse=@zNumToUse+1 

SELECT @zNumToUseString=CONVERT(VARCHAR(3),@zNumToUse) 
30 SELECT @zNumToUseLength=LEN(@zNumToUseString) 

SELECT ©zNumToUseZeros- ' 
IF ©zNumToUseLength < 3 
BEGIN 

IF @zNumToUseLength=2 

BEGIN 

SELECT @zNumToUseZeros='0' 
END 

IF @zNumToUseLength=1 

BEGIN 

40 SELECT @zNumToUseZeros- 00' 

END 

END; 

SELECT 

©zAcctgldentifieF^MonthSMng^zYearString^NumToUseZeros-^NumToUseString+'N 1 

45 r 

****************************************** 

* Finally, post the invoice number that 

* was just created to the gas inventory 

* table. 

****************************************** 
7 

UPDATE 

Gaslnv 
SET 

55 Acctg ldentifier=@zAcctg Identifier 

WHERE 

GasMonth=@GasMonthx AND 
DBCR=1 AND 
PriceType=1 AND 

60 CID=@yCIDAND 

PipeField=@yPipe AND 
TID=@yTID 

END 

FETCH NEXT FROM GaslnvCursor INTO @yTID,@yCID,@yPipe 

65 END 

CLOSE GaslnvCursor 
DEALLOCATE GaslnvCursor 
END 

70 
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GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
5 GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

10 CREATE PROCEDURE usp_PSPriceAssigninvoiceNo( 



45 



50 



55 



©GasMonthx DATETIME 
) 



AS 

BEGIN 

15 SETNOCOUNTON 
/* 

Name: usp_PSPriceAssigninvoiceNo 

20 Description: This routine will clear out any existing invoice numbers on the gas 

inventory table AND generate/assign an invoice number and post to the gas 
inventory table. 

This particular routine is only looking at 'Sales' (DBCR=1) within the specified 
25 gas month (GasMonthx) that have a price type of '1 1 (ie.. not a transport inventory 

item). 

The format of the invoice number that gets generated will be as follows: 
30 Character 



1 Represents alph code for month (A=January, B=February, etc.). 

2 Represents the last digit of the year (1999=9, 2000=0, etc.). 
3-5 Represents unqiue number assigned. 

35 6 Represents 'N' for Nominations. 

These invoice numbers are generated uniquely for all sales meters within a given pipe and 
company identifier. This procedure will assign the invoice number to both the 
nom and actual fields. Later (during actual calculations) the actual invoice number may 
40 or may not get updated based on the modifications made to the volumes or prices. 

Inputs: GasMonthx (Gas Month to calculate), 

History: 

10/27/1999 JAMIE Original creation 



1 1/1 9/1999 JAMIE Modified the number creation to post the final character as 
an 'N'. 

12/21/1999 JAMIE Modified the number creation process to put the monthly 
alphabetic code at the beginning of the invoice number instead of the 2nd 
character. 



* Declare ali variables and cursors 
60 * that are needed by this process. 

*/ 

DECLARE @yC!D VARCHAR(12) 
DECLARE @yPipe VARCHAR(12) 

65 DECLARE ©zAcctg Identifier VARCHAR(12) 

DECLARE @zYear INTEGER 
DECLARE ©zYearString VARCHAR(1) 
DECLARE ©zMonth INTEGER 
DECLARE ©zMonthString VARCHAR(1) 

70 DECLARE ©zNumToUse INTEGER 
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10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



DECLARE ©zNumToUseLength INTEGER 
DECLARE @zNumToUseString VARCHAR(3) 
DECLARE ©zNumTollseZeros VARCHAR(3) 
/* 

****************************************** 

* Determine the prefix to use for the 

* creation of the invoice numbers. If more 

* than 10 years then these numbers begin 

* to be reused. 
* 

* This routine is CHEAP but it should 

* suffice. 

****************************************** 
*/ 

SELECT @zYear=YEAR(@GasMonthx) 

SELECT @zYearString=RIGHT(CONVERT(VARCHAR(4),@zYear),1) 
SELECT @zMonth=MONTH(@GasMonthx) 
IF @zMonth=1 



BEGIN 

END 
IF @zMonth=2 

BEGIN 

END 
IF @zMonth=3 

BEGIN 

END 
IF @zMonth=4 

BEGIN 

END 
IF @zMonth=5 

BEGIN 

END 
IF @zMonth=6 

BEGIN 

END 
IF@zMonth=7 

BEGIN 

END 
IF @zMonth=8 

BEGIN 

END 
IF @zMonth=9 

BEGIN 

END 

IF@zMonth=10 

BEGIN 

END 

IF @zMonth=11 

BEGIN 

END 

IF@zMonth=12 

BEGIN 

END 



SELECT @zMonthString=*A' 
SELECT @zMonthString='B' 
SELECT @zMonthString= , C 
SELECT @zMonthString='D' 
SELECT @zMonthString='E' 
SELECT @zMonthString='F' 
SELECT @zMonthString='G' 
SELECT @zMonthString='H' 
SELECT @zMonthString=T 
SELECT @zMonthString='J' 
SELECT @zMonthSthng='K' 
SELECT ©zMonthString^'L 1 



/* 

* Clear out the invoice number that may 

* have preexisted for this particular 
*gas month (this number will always be 
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* empty UNLESS the gas month is opened 

* and closed more than once). 



*/ 

5 BEGIN TRANSACTION 

UPDATE 

Gaslnv 
SET 

Acctg Identifier^N U LL 

10 WHERE 

GasMonth=@GasMonthx AND 
DBCR=1 AND 
PriceType=1 AND 

(Acctg Identifier IS NOT NULL OR Acctgldentifiero") 

15 COMMIT WORK 

r 

****************************************** 

* Now build a cursor that contains ail of 

* the unique combinations of company and 
20 * pipeline (ordered by company and pipeline). 

*/ 

SELECT @zNumToUse=0 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
25 SELECT 

DISTINCT 
(Gaslnv.CID), 
(Gaslnv.PipeField) 
FROM 

30 Gaslnv 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=1 AND 
Gasinv.DBCR=1 

35 ORDER BY 

Gaslnv.CID, 
Gaslnv.PipeField 

OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yCID,@yPipe 
40 WHILE @@FETCH_STATUS = 0 

BEGIN 

BEGIN TRANSACTION 
/* 

45 * For each of these combinations generate 

* and invoice number and update the Gaslnv 

* table... Make sure that the number 

* to use is padded with zeros in order 

* to create a complete invoice number. 
50 * REALLY CHEAP ZERO PADDING. 

*/ 

SELECT @zNumToUse=@zNumToUse+1 

SELECT @zNumToUseString=CONVERT(VARCHAR(3),@zNumToUse) 
55 SELECT @zNumToUseLength=LEN(@zNumToUseString) 

SELECT @zNumToUseZeros=" 
IF ©zNumToUseLength < 3 
BEGIN 

IF @zNumToUseLength=2 
60 BEGIN 

SELECT ©zNumToUseZeros- 0' 

END 

IF @zNumToUseLength=1 
BEGIN 

65 SELECT @zNumToUseZeros=W 

END 

END 

SELECT ©zAcctgldentifie^gzMonthString-^YearString-^zNumToUseZeros-KgzNumToUseString+'N' 

r 

70 
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50 



* Finally, post the invoice number that 

* was just created to the gas inventory 

* table. 



5 */ 

UPDATE 

Gasinv 
SET 

Acctg ! de ntifi er=@zAcctg identifier 

10 WHERE 

GasMonth=@GasMonthx AND 
DBCFM AND 
PriceType=1 AND 
CID=@yCIDAND 

1 5 PipeField=@yPipe 

COMMIT WORK 

FETCH NEXT FROM GaslnvCursor INTO @yC!D,@yPipe 

END 

CLOSE GaslnvCursor 
20 DEALLOCATE GaslnvCursor 

END 



25 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
30 GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

35 CREATE PROCEDURE usp_PSPriceAuto 

AS 

BEGIN 

/* ^ 
40 Name: usp_PSPriceAuto 

Description: 

This procedure will be scheduled at automatically calculate the gas months 
45 in their respective stages. Noms get calculated for gas months in the 'Sales' stage. 

Pipeline actuals get calculated for gas months in the 'Invoiced* stage. All other gas 
months are ignored by this process. 



Inputs: 
None 
History: 

55 07/29/1999 JAMIE Original Creation. 

10/20/1999 JAMIE Modified to invoke the PSPriceCostAII routine which will 
calculate other costs for deals and post them to the engine table. 

60 03/22/2000 JAMIE Modified to invoke the single month calculation routine. This will 

ensure easier (non duplicated) maintenance on procedures to update price calculations. 



*/ 

65 r 



* Declare all variables and cursors 

* that are needed by this process. 



70 
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DECLARE ©yGasMonth DATETIME 
/* 

* First, calculate all of the nom 
5 * numbers (each gas month). 

*/ 

DECLARE GasMonthCursorl CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

1 0 GasMonth 

FROM 

rGasMonth 

WHERE 

CurrentStatus='Sales' AND 
1 5 (LockedUser IS NULL OR LockedUser=") 

ORDER BY 

GasMonth 

OPEN GasMonthCursorl 

FETCH NEXT FROM GasMonthCursorl INTO ©yGasMonth 
20 WHILE @@FETCH_STATUS = 0 

BEGIN 

EXECUTE usp_PSPriceAutoMonth @yGasMonth t O 
FETCH NEXT FROM GasMonthCursorl INTO @yGasMonth 

END 

25 CLOSE GasMonthCursorl 

DEALLOCATE GasMonthCursorl 
/* ^ 

* Now calculate based on the pipeline 
30 * actuals each month. 

*/ 

DECLARE GasMonthCursor2 CURSOR LOCAL STATIC FORWARD JDNLY FOR 
SELECT 

35 GasMonth 

FROM 

rGasMonth 

WHERE 

CurrentStatus- Invoiced' AND 
40 (LockedUser IS NULL OR LockedUser=") 

ORDER BY 

GasMonth 

OPEN GasMonthCursor2 

FETCH NEXT FROM GasMonthCursor2 INTO ©yGasMonth 
45 WHILE @@FETCH_STATUS = 0 

BEGIN 

EXECUTE usp_PSPriceAutoMonth ©yGasMonth, 1 
FETCH NEXT FROM GasMonthCursor2 INTO ©yGasMonth 

END 

50 CLOSE GasMonthCursor2 

DEALLOCATE GasMonthCursor2 
END 



55 

GO 

SET QUOTEDJDENTIFIER OFF SET ANSl_NULLS ON 
GO 

60 

SET QUOTEDJDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE PROCEDURE usp_PSPriceAutoMonth( 

65 



AS 

BEGIN 

70 SETNOCOUNTON 



©GasMonthx DATETIME, 
©Which Voiumex INTEGER 
) 
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r 

Name: usp_PSPriceAutoMonth 

5 Description: 

This procedure wilt be execute all of the price calculation procedures 
required for a given month INCLUDING locking the month from other executions... This 
particualr procedure will be executed asynchronously by the system through the online 
1 0 screens. 

Inputs: 

GasMonthx (Gas month to calculate) 
1 5 Which Volumex (Price noms=0, Price actuals=1) 

History: 

08/31/1999 JAMIE Original Creation. 

20 

12/15/1999 JAMIE Modified to execute a new stored procedure once 
the gas month has been changed to the 'Accounting' status. This new 
procedure will mark and 'zap' the invoice numbers (amongst other things) 
on those gas inventory items were some sort of a price or volume adjustment 
25 was made. 

03/22/2000 JAMIE Modified this process to handle all of the calculations for 
gas months, etc. Moved the 'Divie' process to this routine (was buried within 
the transport cost module). 

05/24/2000 JAMIE Modified to enable an outer cursor on company entity (CID). This will 
aiiow for the partitioning of the calculations based on company ID (so we don't mix 
WASP Pool results/etc). 



30 



35 07/26/2000 JAMIE Modified to incorporate the changes to process calculations for certain 
types of deals prior to others (ie. 3rd party first so that profits can be distributed. 
This change included passing a new parameter to the PSPriceAll function (on which 
pool ("for all)... 

40 08/25/2000 JAMIE Modified to remove logic that invoked the older calculation 

routines. 

02/01/2001 JAMIE Modified to remove the transport section (commented out). 
*/ 

DECLARE ©yClDEntity VARCHAR(12) 
DECLARE ©yGasMonth DATETIME 
DECLARE ©yCurrentStatus VARCHAR(20) 



50 



DECLARE EntityCIDCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

CID 
FROM 

55 company 

WHERE 

Entitylndicator=Y 

ORDER BY 

CID 

60 /* ^ 

* Execute a cursor to calculate based on 

* entity. 

65 */ 

OPEN EntityCIDCursor 

FETCH NEXT FROM EntityCIDCursor INTO ©yClDEntity 
WHILE @@FETCH„STATUS = 0 
BEGIN 

70 r 
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* Now oniy calculate if the month 

* is not currently involved with a 

* calculation of some sort (month 

5 * needs to be unlocked). 

* 

* If the status was modified and the 

* current status in 'Invoiced' then 

* go and build all of the pipeline 
1 0 * actuals. 

7 

DECLARE GasMonthCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

1 5 GasMonth, 

CurrentStatus 
FROM 

rGasMonth 

WHERE 

20 GasMonth=@GasMonthx AND 

(LockedUser IS NULL OR LockedUser= M ) 

OPEN GasMonthCursor 

FETCH NEXT FROM GasMonthCursor INTO @yGasMonth,@yCurrentStatus 
WHILE @@FETCH_STATUS = 0 
25 BEGIN 

/* 

* Indicate that the gas month is in 

* progress so that no one else tryes to 
30 * calculate at the same time. 

7 

UPDATE 

rGasMonth 

35 SET 

Locked Use r='PSPriceAutoM' p 
Locked Date=getdate() 

WHERE 

GasMonth=@GasMonthx 

40 rmmmuxu^uuuuuummm 

* Calculate prices on all sales deals... 
7 

45 EXECUTE usp_PSPriceAII @GasMonthx t 1,@WhichVolumex ( 0 ( @yCIDEntHy l H 

/* 

* Calculate 'Other Costs' associated to 

* all sales deals (required here in 
50 * order to post the other cost amounts 

Mo WASP pools/etc... 

7 

EXECUTE usp_PSPriceCostA!l @GasMonthx,@WhichVolumex i @yCIDEntity ( 1 ," 
55 

* Now create the temporary WASPRouting 

* table entries for all products, services 

* and wasp types. The calculations will 
60 * not 'walk back' from sale to purchase 

* here (unless OLD routing month)... 

7 

EXECUTE usp„PSPriceWASPCalc ©GasMonthx^WhichVolumex.gyCIDEntity 

65 r 



* If new routing method then resolve based 

* on entity and IncludelnWasp pool. This 

* is done this way in order to potentially 
70 * distribute proceeds from 3rd party 
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* deals back to either a WASP pool meter 

* or to another deal... 

* 1. Resolve and price 'None* pool. 
5 * 2. Divie out any proceeds. 

* 3. Resolve and price 'Dedicated' pool. 

* 4. Resolve and price 'Common' pool. 

*/ 

1 0 EXECUTE usp.PSPriceWASPCalcResolveDriver 

@GasMonthx f @WhichVolumex,@yCIDEntity;None' 

EXECUTE usp_PSPriceAII ©GasMonthx.O.gWhichVolumex.O.gyCIDEntity/None' 
EXECUTE usp_PSPriceCostAII ©GasMonthx.QWhichVolumex^yCIDEntity.O/None' 
EXECUTE usp_PSPriceWASPDivieOutProceedsN 

1 5 @GasMonthx,<p/hichVolumex,@yClDEntity 

EXECUTE usp_PSPriceWASPCalcResolveDriver 

©GasMonthx.QWhichVolumex^yCIDEntity.'Dedicated' 

EXECUTE usp_PSPriceAII ©GasMonthx.O^WhichVolumex.O^yCIDEntity.'Dedicated' 
EXECUTE usp_PSPriceCostAII ©GasMonthx^WhichVolumex^yCIDEntity^.'Dedicated' 
20 EXECUTE usp„PSPriceWASPCalcResolveDriver 

©GasMonthx^WhichVolumex^yCIDEntity/Common' 

EXECUTE usp_PSPriceAII ©GasMonthx.O^WhichVolumex.O^yCIDEntity/Common 1 
EXECUTE usp_PSPriceCostAII ©GasMonthx.QWhichVolumex^yCIDEntity^/Common 1 

25 ^ 

* Calculate Transport contract gas inventory 

* items (create them along with any 

* transport deals). 

30 EXECUTE usp.PSPriceTransportAII @GasMonthx J @WhichVolumex,0 1 @yCIDEntity 

r 

****************************************** 

* Indicate that the gas month is finished 
35 * and commit the updates. 

*/ 

UPDATE 

rGasMonth 

40 SET 

LockedUser=" 

WHERE 

GasMonth=@GasMonthx 

/* 



45 



* Check to make sure that any items that 

* require an invoice number gets created. 

* This is only applicable when the gas month 

* is in an 'Invoiced* state already. This 
50 * picks up any new deals/meters created 

* after the gas month promoted to 'Invoiced'. 

*/ 

IF (@yCurrentStatus- Invoiced') 
55 BEGIN 



END 

60 CLOSE GasMonthCursor 

DEALLOCATE GasMonthCursor 

FETCH NEXT FROM EntityCIDCursor INTO ©yCiDEntity 

END 

CLOSE EntityCIDCursor 
65 DEALLOCATE EntityCIDCursor 

END 



EXECUTE usp_PSPriceAnyNewlnvoicesNeeded @yGasMonth,@yClDEntity 
END 

FETCH NEXT FROM GasMonthCursor INTO @yGasMonth,@yCurrentStatus 



70 
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GO 

5 SET QUOTEDJDENTIFIER OFF SET ANSIJMULLS ON 

GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

10 

CREATE PROCEDURE usp_PSPriceComponentsCheck( 



15 

AS 

BEGIN 
/* 

Name: usp_PSPriceComponentsCheck 
Description: 

25 Create any system generated pricing components automatically. Any existing 

system generated pricing components are deleted. Then they are recreated 
within this particular process. This procedure should be invoked for all 
packages that were created within a given gas month. Current System 
Generated Items include price components tagged as 'NETBACK PERCENTAGE' or 

30 'WASP'. 

Inputs: 

PIDx- Package Identifier 
35 WhichPricex - 0=Nominations, 1 =Actuais 

GasMonthx - Gas Month for Price Calculations 
DBCRx-0=Purchase, 1=Sales 

History: 

40 

05/12/1999 JAMIE Original Creation. 

07/28/2000 JAMIE Modify this process so that OIL, GAS or LIQUIDS is used when 
obtaining the netback percentage. This is based on the product ID for the deal. 

45 

08/17/2000 JAMIE Modify the process to eliminate any pricing entries on 
WASP/EQUITY deals ('Common' pool). This will ensure that the only pricing 
entries on the wasp deals are those that are system generated. 

* Declare all variables and cursors 
55 * that are needed by this process. 

*/ 

DECLARE ©zProductlD INTEGER 
DECLARE ©zProductNetbackType VARCHAR(12) 
60 DECLARE ©yWasplndicator VARCHAR(1 0) 

DECLARE ©yEngineMasterRecords INTEGER 
DECLARE @yEngineMasterETlD_Key INTEGER 
DECLARE ©yEngineMasterPriceSequence INTEGER 
DECLARE ©yNetBackPercentage DECIMAL(19 f 8) 

65 

DECLARE ETIDCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

DISTINCT 
ETID 

70 FROM 



@PIDx INTEGER, 
©WhichPricex INTEGER, 
©GasMonthx DATETIME, 
©DBCRx INTEGER 
) 



-59- 



10 



Engine Master 

WHERE 

PID=@PIDx 

/* 

* **** **************** ************** ******* 

* Get the WASP indicator for this 

* particular deal via a function call. 

* This is based on how the deal is 

* classified. 

*/ 

EXECUTE uspJGetWaspIndicator @PIDx,@yWasplndicator OUTPUT 

r 

15 * All deals should have system generated 

* price entries removed here... 

* In addition, 'Common' wasp pool deals 

* will have alf non system generated 
20 * price entries removed. Only purchase 

* deals are impacted by system generated 

* entries. 

7 

25 OPEN ETIDCursor 

FETCH NEXT FROM ETIDCursor INTO @yEngineMasterETID_Key 
WHILE @@FETCH_STATUS = 0 
BEGIN 

IF @yWasplndicator='Common' 
30 BEGIN 

IF @DBCRx=0 

BEGIN 

DELETE 

FROM 

35 Engine JvlasterPrice 

WHERE 

(Engine_MasterPrice.ETID=@yEngineMasterETID_Key) AND 

40 (Engine_MasterPrice.NomOrActual=@WhichPricex) 

END 

END 

ELSE 

BEGIN 

45 DELETE 

FROM 

EngineJ/lasterPrice 

WHERE 

(Engine_MasterPrice.ET!D=@yEngineMasterET!D Key) AND 
50 (Engine_MasterPrice.NomOrActual=@WhichPricex) AND 

(Engine Jv1asterPrice.PriceTag=ANY(SELECT PriceTag FROM 

PriceComponents WHERE SystemGenerated- Y')) 
END 

FETCH NEXT FROM ETIDCursor INTO @yEngineMasterETID_Key 

55 END 

CLOSE ETIDCursor 
DEALLOCATE ETIDCursor 

/* xiu ^^ 

60 * Now generate (insert) the price 

* components that are required. These 

* system generated price components are 

* recognized by the PriceTag name. There 

* should be a section within this procedure 
65 * specifically for any system generated 

* pricing components. 

7 

r 



70 



****************************************** 
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'WASP" and "NETBACK PERCENTAGE" 



* These two compononents go hand-in-hand. 
* 

5 * 1 . Only system generate these if it is 

* a purchase task and the deal is considered 

* 'Wasp'able. 

*/ 

1 0 IF ((©yWaspindicatOF'Common*) OR (@yWasplndicator='Dedicated')) AND (@DBCRx=0) 

BEGIN 

/* 



* Determine the correct product type in order 
15 * to get the correct contract netback 

* tier information. 

*/ 

EXECUTE uspJGetWaspType @PIDx,@zProductNetbackType OUTPUT 
20 r 

* Now go and find an Engine_Master record 

* to attach these components too. If one 

* is not found, then insert one. An 

25 * attempt to preserve the existing record 

* will ensure that nominations and pipe 

* line actuals will utilize the same 

* Engine_Master entity, 

30 */ 

SELECT ©yEngineMasterRecords = ISNULL((SELECT count{*) FROM enginejriaster 

WHERE PID=@PIDxAND 

Effective=@GasMonthx AND ST!D=8 AND VoiLevel=0),0) 
IF @yEngineMasterRecords=6 
35 BEGIN 

INSERT 

INTO 

Enginejvlaster 

40 (PID^ffective.STlD.VolevelVolGroup.VarFixed.MMBtuMCFJierThreshold) 

VALUES 

(@PIDx l @GasMonthx l 8,0 l @PIDx,1 l 1,1) 

END 

SELECT @yEngineMasterETID_Key = ISNULL((SELECT MIN(ETID) FROM Enginejvlaster 
45 WHERE PID=@PlDx AND 

Effective=@GasMonthx AND STID=8 AND Vo!Level=0),0) 
/* 

* At this point we now either have a valid 
50 * ETID (key) to the Engine_Master or 0. 

* There should be only a single record on 

* the Engine_Master for these types of 



55 * Now insert the 'WASP' price component. 

*/ 

IF @yEngineMasterETID_Key > 0 
BEGIN 

60 SELECT ©yEngineMasterPriceSequence = ISNULL((SELECT MAX(SequenceNo) FROM 

Engine_MasterPrice 

WHERE 

ETID=@yEngineMasterETID_Key AND NomOrActual=@WhichPricex) ) 0) 

SELECT ©yEngineMasterPriceSequence = @yEngineMasterPriceSequence+1 
65 INSERT 

INTO 

Engine JVlasterP rice 

(ETlD.PriceTag.OperandVariablePriceVariable.CreateUse^CreateDate.LastUpdateUser, 
70 LastUpdateDate,SequenceNo,NomOrActual) 
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VALUES 

(@yEngineMasterETID_Key ) 'WASP , ;+VWASP , ,UPPER(user_name()) J 



getdateO.UPPERluser.nameOJ.getdatetl^yEngineMasterPriceSequence.gWhichPricex) 
5 END 
/* 

* Now invoke the 'NETBACK PERCENTAGE' 

* calculation routine and then insert this 
10 * particular price component. Remember to 

* put the netback percentage into its 

* 'string' representation. 

*/ 

1 5 IF @yEngineMasterETID_Key > 0 

BEGIN 

EXECUTE uspJGetNetbackPercentage 
©PlDx.gGasMonthx^zProductNetbackType^WhichPricex^yNetBackPercentage OUTPUT 

IF ©yNetBackPercentage IS NULL 
20 BEGIN 

SELECT ©yNetBackPercentage = 0 

END 

SELECT ©yEngineMasterPriceSequence = @yEngineMasterPriceSequence+1 
INSERT 

25 INTO 

Engine_MasterPrice 

(ETID f PriceTag .Operand VariablePriceVariable^reateUser, 

CreateDate^astUpdateUser.LastUpdateDate.SequenceNo.NomOrActual) 
30 VALUES 

(@yEngineMasterET!D_Key/NETBACK 

PERCENTAGE'r.LTRiMtSTRtgyNetBackPercentage.S^)), 

UPPERfCURRENTJJSERJ.getdateO^PPERpURRENTJJSER^getdate^^^ 
35 END 
END 

END 

40 



45 GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
50 GO 

CREATE PROCEDURE usp_PSPriceCost( 

©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
55 @PKGx INTEGER, 

©STIDx INTEGER, 
©PClDx INTEGER, 
@TIDx INTEGER, 
@CostLevelxVARCHAR(12), 

60 ©CostBasisx VARCHAR(40), 

©CostRateOrAmountx DECiMAL(19,6), 
©TotalVoiumex DECIMAL(19,2), 
©MeterVolumex DECIMAL(19,2) 
) 

65 AS 

BEGIN 

r 

** 

Name: usp_PSPriceCost 

70 
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Description: This particular procedure will perform the actual calculations and post 
updates to the engine table (for other costs associated with deals). This is done 
for each meter within a deal for an other cost item. 

5 Inputs: 

GasMonthx (Gas Month to cost) 

WhichPricex ((^Nominations, ^Actualizations) 

PKGx (deal id) 
1 0 STIDx (engine transaction id) 

PCIDx (deal other cost unique id (see PackageCosts table) 

TIDx (gas inventory identifier) 

CostLevelx (Level that cost is appropriated towards) 

CostBasisx (rules governing calculation of the cost) 
1 5 CostRateOrAmountx (rate or amount involved in cost) 

TotalVolumex (total volume for deal) 

MeterVolumex (total volume for meter within deal). 



20 



25 



40 



50 



55 



History: 

10/20/99 JAMIE Initial creation. 

03/26/00 JAMIE Modified to allow for zero volume deals to have other (fixed) costs 
assigned to them. 

10/03/20 JAMIE Modified to correct problem associated with 'METER' 
calculations using entire deal volume. 



12/01/2000 JAMIE Modified to apply the netback percentage to the other 
30 cost when it is calculated. This percentage is only applicable to purchase 

deals that are in the 'Common* or 'Dedicated* pools. 

12/10/2000 JAMIE Modified to check for the apply netback flag on the 
cost record in order to determine if the netback percentage should be 
35 applied to the cost. 

r************************ ** ** ** ******************************** 



r 

****************************************** 

* Declare all variables and cursors 

* that are needed by this process. 



*/ 

45 DECLARE ©zNetbackPercent DECIMAL(19,6) 

DECLARE ©zProductNetbackType VARCHAR(12) 
DECLARE ©yWasplndicator VARCHAR(10) 
DECLARE @zDBCR INTEGER 
DECLARE ©zApplyNetback VARCHAR(1) 



DECLARE ©zPercentToApply DECIMAL(19,4) 
DECLARE @zAmountToApply DECIMAL(19,2) 
DECLARE ©zTotalSaleOrPurchValue DECIMAL(19,2) 
DECLARE ©zTotalMeters INTEGER 

f ***** ****** 



* Initialize any fields required. 

60 */ 

SELECT @zNetbackPercent=0 
SELECT @zAmountToApp!y=0 
SELECT @zPercentToApply=1 
SELECT @zTotalSaleOrPurchValue=0 

65 

* Get the WASP indicator for this 

* particular deal via a function call. 

* This is based on how the deal is 
70 * classified. 
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*/ 

EXECUTE usp JGetWasplndicator @PKGx,@yWasplndicator OUTPUT 
SELECT @zDBCR=lSNULL((SELECT packagedbcr FROM package WHERE pkg=@PKGx),0) 
5 SELECT @zApplyNetback=ISNULL((SELECT applynetback from packagecosts WHERE pcid=@PCIDx);Y') 

I* 

* Determine the correct product type in order 

* to get the correct contract netback 
10 * tier information. 

*/ 

IF @zDBCR=0 

BEGIN 

1 5 IF (@yWasplndicator='Common') OR (@yWasplndicator='Dedicated') 

BEGIN 

EXECUTE uspJGetWaspType @PKGx,@zProductNetbackType OUTPUT 
EXECUTE uspJGetNetbackPercentage 
©PKGx.QGasMonthx.gzProductNetbackType.gWhichPricex^zNetbackPercent OUTPUT 
20 END 
END 

/* 

* Determine the percentage of whatever the 
25 * cost will calculate to here. 

* involved with this calculation. If it 

* is a deal level fixed cost then show 

* zeros IF there is no volume. 

30 */ 

IF (@MeterVolumex<>0) AND (@TotalVoiumex<>0) 
BEGIN 

IF @CostLevelx- DEAL' 
BEGIN 

35 SELECT 

@zPercentToApply=CONVERT(DECIivlAL(19 ) 4) l @MeterVoIumex)/CONVERT(DECIMAL{19,4),@TotalVolumex) 
END 

END 

IF (@MeterVolumex = 0) AND (@CostLeve!x-DEAL') 
40 BEGIN 

SELECT @zPercentToAppIy=0 

END 

r 

****************************************** 

45 * If the cost is a FIXED AMOUNT and there 

* is no volume for the deal then determine 

* the amount to apply based on the number 

* of meters involved in the deal. If 1 

* meter only then 100% of cost assessed to 
50 * that meter. If 2 meters then 50% assessed 

* to each one, etc.. 

7 

IF (@MeterVoIumex=0) AND (©Total Volumex=0) 
55 BEGIN 

IF @CostBasisx- Fixed Amount 1 
BEGIN 

SELECT @zTotalMeters=ISNULL((SELECT counf) FROM Gaslnv WHERE PKG=@PKGx 

AND GasMonth=@GasMonthx),0) 
60 IF ©zTotalMeters <> 0 

BEGIN 

SELECT 

©zPercentToApply^l/CONVERTtDECIMALflQ^J^zTotalMeters)) 

SELECT 

65 @zAmountToAppiy=(@CostRateOrAmountx*@zPercentToApply) 

END 

END 

END 

/* 

~YQ ****************************************** 
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* Calculate based on fixed amount 

* here... Since this is a fixed amount 

* then the amount should be calculated 

* proportionately based on the total 
5 * volume percentage to the deal. 

*/ 

IF @CostBasisx- Fixed Amount* 
BEGIN 

1 0 IF (@CostRateOrAmountx<>0) AND (@zPercentToApply<>0) 

BEGIN 

SELECT @zAmountToApply=(@CostRateOrAmountx*@zPercentToApply) 

END 

END 

15 r 

* Calculate based on a rate applied 

* against MMBTU's here... Regardless 

* of whether or not this is a 'DEAL' 
20 * level or 'METER' level charge the 

* cost should be based on meter 

* volume. 

****************************************** 
*/ 

25 IF (@MeterVoIumex<>0) 

BEGIN 

IF @CostBasisx='Rate Applied to MMBTUs' 
BEGIN 

IF (@CostRateOrAmountx<>0) 
30 BEGIN 

SELECT 

§zAmountToApply=((CONVERT(DECiMAL(19,4),@MeterVolumex)*@CostRateOrAmountx)) 

END 

END 

35 END 

/* 

* Calculate based on the total dollar amount 

* previously calculated here... Since 
40 * this particular cost is calculating on 

* just the amount for the associated 

* meter (ie.. sum of engine based on 

* TID) then the 'PercentToApply* is 
*not applicable. 

*/ 

IF (@MeterVolumex<>0) AND (@TotalVolumex<>0) 
BEGIN 

IF @CostBasisx='Rate Applied to Value' 
50 BEGIN 

IF @WhichPricex=0 
BEGIN 

SELECT @zTotalSaIeOrPurchVaIue=ISNULL{{SELECT SUM(amount) 

FROM engine WHERE tid=@tidx AND (stid=8 OR stid=9)),0) 
55 END 

IF @WhichPricex=1 
BEGIN 

SELECT @zTotalSaleOrPurchValue=ISNULL((SELECT 
SUM(amountact) FROM engine WHERE tid=@tidx AND (stid=8 OR stid=9)),0) 
60 END 

if(@CostRateOrAmountx<>0) AND (@zTotaISaleOrPurchValue<>0) 
BEGIN 

SELECT 

@zAmountToApply=(@zTotalSaleOrPurchVaIue*@CostRateOrAmountx) 
65 END 

END 

END 

/* 

70 * Finally, post the cost amount to the 



45 
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* Engine table. If the engine table for 

* this transaction does not yet exist then 

* insert it, otherwise just update it.,. 

* Make sure that actual calculations and 

* nomination calculations are done within 

* their respective 'buckets'. 



7 

10 r 

* First apply the netback if it 

* is there AND if the apply 

* netback flag has been set 
15 * on the cost item. 



7 

IF ©zAppiyNetback = Y 
BEGIN 

20 IF @zNetbackPercent<>0 

BEGIN 

SELECT @zAmountToAppiy=ROUND((@zAmountToAppiy*@zNetbackPercent) ) 2) 

END 

END 

25 /* 

* Apply and post the amount 

* here... 

30 7 

IF @WhichPricex=0 
BEGIN 

IF (SELECT coumf) FROM Engine WHERE TlD=@TIDx AND STID=@STIDx AND Effective=@GasMonthx AND 

VolLevel=0)=0 
35 BEGIN 

INSERT 

INTO 

Engine 

40 riD.STID,Effecfive,VolL^ 
TID) 

VALUES 

{©TIDx^STIDx.gGasMonthx^^PKGx.tO.ROUNDf^mountToApply.g.O.O^^^PCfDx) 
45 END 

ELSE 

BEGIN 

UPDATE 

engine 

50 SET 

Amount=Amount4ROUND(@zAmountToApply J 2) 

WHERE 

TID=@TIDx AND 
STID=@STIDxAND 

55 Effective=@GasMonthx AND 

VolLevel=0 

END 

END 

IF @WhichPricex=1 
60 BEGIN 

IF (SELECT count{*) FROM Engine WHERE TID=@TIDx AND STID=@STIDx AND Effective=@GasMonthx AND 

VolLeve!=0)=0 

BEGIN 

INSERT 

65 INTO 

Engine 

(TID.STID.Effective.VolLevef.VolGroup 
70 VALUES 
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10 



15 



20 



{©TIDx^STIDx^GasMonth^O.gPKGx.^O.O.O^^^ROUNDtgzAmountToAppiy^J.gPCIDx) 
END 

ELSE 

BEGIN 

UPDATE 



END 



END 



END 



engine 
SET 

WHERE 



GO 

25 SET QUOTEDJDENTIFIER OFF SETANSIJJULLS ON 

GO 



AmountAct=AmountAct+ROUND(@zAmountToAppiy,2) 

TID=@TIDx AND 
STID=@STIDxAND 
Effective=@GasMonthx AND 
VolLevel=0 



30 



35 



40 



SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceCostAII( 



AS 

BEGIN 
I* 



©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
©EntityCIDx VARCHAR(1 2), 
@DBCRx INTEGER, 
©IncludelnWaspx VARCHAR(IO) 



45 



50 



55 



60 



65 



70 



Name: usp_PSPriceCostAII 

Description: Loop thruough all other costs associated to deals within a given month 
then apply the cost to the dean (posting engine records reflecting the cost amounts), 
or sale) and invoke the price procedures. 

Inputs: 

GasMonthx - Gas Month to price), 

WhichPricex - {^Nominations, ^Actualizations 

EntityCIDx - owning entiry company identifier 

DBCRx - (^Purchases, 1=Sales (deals) 

IncludelnWaspx = " for all or specific pool (ie. 'Common', etc.). 

History: 

10/20/99 JAMIE Initial creation. 

03/26/00 JAMIE Modified to allow for zero volume deals to have other (fixed) costs 
assigned to them. 

05/24/2000 JAMIE Modified to make sure that the calculation was within a specific 
entity. 

10/03/2000 JAMIE Modified to accept two additional parameters to dictate which 
pool and whether or not purchases or sales were to be calculated upon... 
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* Declare all variables and cursors 

* that are needed by this process. 

*/ 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zTotalVolume DECIMAL(19,2) 
DECLARE ©zMeterVolume DECIMAL(19,2) 
1 0 DECLARE ©zVolumeStatus INTEGER 

DECLARE ©zPriceStatus INTEGER 
DECLARE ©zlncludelnWasp VARCHAR(10) 

DECLARE @yPCID INTEGER 
15 DECLARE @yPKG INTEGER 

DECLARE ©ySTID INTEGER 

DECLARE ©yCoslevel VARCHAR{12) 

DECLARE ©yCostMID INTEGER 

DECLARE ©yCostBasis VARCHAR(40) 
20 DECLARE ©yCostRateOrAmount DECIMAL(19,4) 

DECLARE @wTID INTEGER 
DECLARE ©wNom DECIMAL(19,2) 
DECLARE ©wPipeiineActuals DECIMAL(19,2) 
25 DECLARE ©wGaslnv.MID INTEGER 

DECLARE ©eETID INTEGER 
DECLARE ©eVolume DECIMAL(19,2) 
DECLARE ©ePriceOrRateNom DECIMAL(19,6) 
30 DECLARE ©eVolumeAct DECIMAL(19,2) 

DECLARE ©ePriceOrRateAct DECiMAL(19,6) 
DECLARE ©evoiumestatus INTEGER 
DECLARE ©epricestatus INTEGER 
DECLARE ©ePKG INTEGER 

35 

DECLARE PackageCostsCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

PackageCosts.PClD, 

PackageCosts.PKG, 
40 PackageCosts.STID, 

PackageCosts, CostLevel, 

PackageCosts.CostMID, 

PackageCosts. CostBasis, 

PackageCosts.CostRateOrAmount 
45 FROM 

PackageCosts 

WHERE 

PackageCosts. PKG-ANY(SELECT PKG FROM Package.k WHERE PackageGasMonth=@GasMonthx AND 

K.KiD-Package.KID AND K.EntityCID=@EntityCIDx AND 

50 Package.PackageDBCR=@DBCRx) 

ORDER BY 

PackageCosts.PKG, 
PackageCosts.STID 

55 DECLARE EngineCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 

SELECT 

engine.etid, 
engine.volume, 
engine.priceorratenom, 
60 engine.volumeact, 

engine.priceorrateact, 
engine.volumestatus, 
engine.pricestatus, 
package.pkg 

65 FROM 

engine, 
gasinv, 
package, 
k 

70 WHERE 
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package.pkg=gasinv.pkg AND 
k.kid=package,kid AND 
k.entitycid=@entitycidx AND 
gasinv.gasmonth=@GasMonthx AND 
5 engine.tid=gasinv.tid AND 

gasinv.pricetype=1 AND 
gasinv.dbcr=@DBCRx 

/* 

****************************************** 

1 0 * Loop th roug h each other packag e cost 

* involved with this calculation. 

*/ 

SELECT ©zMessage = 'PSPriceCostAII Running To Calculate Other Costs for ail Deals' 
1 5 EXECUTE usp_Message @zMessage 

OPEN PackageCostsCursor 

FETCH NEXT FROM PackageCostsCursor INTO ©yPCID^yPKG.QySTID^yCostLeveKgyCostMiD.QyCostBasis^yCostRateOrAmount 
WHILE @@FETCH_STATUS = 0 
BEGIN 

20 BEGIN TRANSACTION 

r 

* Sum the appropriate volumes for this 

* deal depending on whether nominations are 
25 * being calculated OR pipeline actuals are 

* begin calculated. 

*/ 

SELECT ©zMessage = 'PSPriceCostAII Calculating Costs for Deal...' + CAST{@yPKG AS VARCHAR(IO)) 
30 EXECUTE usp_Message ©zMessage 

EXECUTE uspJGetWaspIndicator @yPKG,@zIncIudelnWasp OUTPUT 
IF (©IncludelnWaspx- ') OR (@lncludelnWaspx=@zlncludeInWasp) 
BEGIN 

IF @WhichPricex=Q 

35 BEGIN 

SELECT @zTotaIVoiume=ISNULL((SELECT SUM(Nom) FROM 

Gaslnv WHERE Gaslnv.PKG=@yPKG AND GasInv.PriceType=1),0) 

END 

IF @WhichPricex=1 

40 BEGIN 

SELECT @zTota!Volume=ISNULL((SELECT SUM(PipelineActuals) 
FROM Gaslnv WHERE GasInv.PKG=@yPKG AND Gaslnv.PriceType=1},0) 

END 

/* 



45 



* Open a cursor on all meters associated 

* with this deal. 

****************************************** 



*/ 

50 DECLARE GastnvCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 

SELECT 

Gaslnv.TID, 

Gaslnv.Nom, 

Gasfnv.PipelineActuals, 

55 Gaslnv.Gaslnv_MlD 

FROM 

Gaslnv 

WHERE 

Gas!nv.PKG=@yPKG AND 

60 Gaslnv.PriceType=1 

OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @wTlD ) @wNom,@wPipelineActuals,@wGaslnv_MID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

65 r 

* Depending on which pricing routine is 

* run, set the appropriate meter volume 

70 * field " 



-69- 



15 



40 



65 



*/ 

IF @WhichPricex=0 

BEGIN 

SELECT @zMeterVolume=@wNom 
END 

IF@WhichPricex=1 

BEGIN 

SELECT @zMeterVolume=@wPipelineActuals 
END 



10 '* 

****************************************** 

* Invoke the detail cost routine in order 

* to calculate and post the cost totals 
Mo the Engine Database. 



@yCostMID=@wGaslnv_MID) 



*/ 

IF (@yCostLeve!='DEAL') OR (@yCoslevel=' METER' AND 



BEGIN 

20 EXECUTE usp_PSPriceCost 

@GasMonthx ) @WhichPricex ) @yPKG,@ySTID I @yPClD, 

@wTID t @yCostevel,@yCostBasis,@yCostRateOrAmount, 

25 @zTotaiVolume,@zMeterVo!ume ^ 

FETCH NEXT FROM GasinvCursor INTO 

@wTID,@wNom,@wPipelineActuals,@wGaslnv_MlD 

END 

30 CLOSE GasinvCursor 

DEALLOCATE GasinvCursor 

END 

COMMIT WORK 

FETCH NEXT FROM PackageCostsCursor INTO 
35 ©yPCID^yPKG^ySTID^yCostLevel^yCostMID^yCostBasis.gyCostRateOrAmount 
END 

CLOSE PackageCostsCursor 
DEALLOCATE PackageCostsCursor 

r 



*************** 



* Loop through and set the status flags 

* on the engine record IF the price or 

* volumes or amounts are different 

* between noms and actuals. Make 
45 * sure the logic exists to only calculate 

* those deals (purchases or sales) 

* within the correct WASP pool. 
****************************************** 

*/ 

50 IF @WhichPricex=1 

BEGIN 

SELECT ©zMessage = 'PSPriceCostAli Running To Set Price & Volume Variance Status Indicators.. 
EXECUTE usp_Message ©zMessage 
OPEN EngineCursor 
55 FETCH NEXT FROM EngineCursor INTO 

@eETID,@eVoIume ) @ePriceOrRateNom ! @eVolumeAct t @ePriceOrRateAct 1 @eVoiumeStatus,@ePriceStatus ) @ePKG 

WHILE @@FETCH_STATUS = 0 
BEGIN 

EXECUTE uspJGetWasplndicator @ePKG,@zlncludelnWasp OUTPUT 
60 IF (@lncludelnWaspx= M ) OR (@lncludelnWaspx=@zlnciude!nWasp) 

BEGIN 

r 



* Check prices and volumes here. 



*/ 

SELECT @zVolumeStatus=0 
SELECT @zPriceStatus=0 
IF @eVolume<>@eVolumeAct 

70 BEGIN 
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SELECT @zVolumeStatus=1 
END 

IF@ePriceOrRateNom<>@ePriceOrRateAct 
BEGIN 

5 SELECT @zPnceStatus=1 

END 

IF (@zVolumeStatus<>@eVolumeStatus) OR (@zPriceStatus<>@ePriceStatus) 
BEGIN 
UPDATE 

a q engine 

SET 



volumestatus=@zVolurneStatus, 
1 5 pricestatus=@zPriceStatus 



60 



WHERE 

ETID=@eETID 



END 

END 

20 FETCH NEXT FROM EngineCursor INTO 

©eETID^eVolume^ePrtceOrRateNom^^^ 
END 

CLOSE EngineCursor 
DEALLOCATE EngineCursor 

25 END 
END 



30 



GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
35 GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
GO 

40 CREATE PROCEDURE usp_PSPriceCreateActualEntries( 

©GasMonthx DATETIME 
) 

AS 

BEGIN 

45 SETNOCOUNTON 
/* 

Name: usp_PSPriceCreateActualEntries 

50 Description: This routine will clear out any existing links and pricing enties 

that may have already been setup for pipeline actuals. It will then copy the 
nomination pricing and linking entries for pipeline actuals (within the given 
month). This process should only get invoked with the status of a given month 
within the gas control system goes from 'Sales' to 'Invoiced' at that point in time 

55 the accounting group will be responsible for any further modifications. 

Inputs: 

GasMonthx (Gas Month to calculate), 
History: 

08/04/1999 JAMIE Original creation 



65 08/25/2000 JAMIE Modified to remove the PackageLinks delete and build 

logic (replaced by new routing structures). 



***************************************^ 



*/ 

70 /* 
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* Declare all variables and cursors 

* that are needed by this process. 



itiekickickirtrkick&itlcit'kirk'ki 



5 */ 

DECLARE ©zMessage VARCHAR(254) 
DECLARE @yPKG INTEGER 
DECLARE ©yETID INTEGER 
DECLARE @yEM_ET!D INTEGER 

* Clear out the link and price entry 

* structures for the specified month 

* here... These entries will be 

1 5 * recreated (from Norn side) in the 

* next step. 

* Database triggers take care of the 

* individual pricing components in 

20 * the EngineJvlasterPrice table. 

****************************************** 

*/ 

SELECT ©zMessage = 'PSPriceCreateActualEntries, removing EngineJvlasterPrice...' 
EXECUTE usp_Message @zMessage 
25 DECLARE Engine JvlasterDeieteCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 

SELECT 

DISTINCT 

(Engine_Master.ETlD) 
FROM 

30 Engine_Master, 

Gaslnv, 

EngineJvlasterPrice 

WHERE 

Gas!nv.GasMonth=@GasMonthx AND 
35 Gaslnv.PriceType=1 AND 

Gaslnv.PKG=Engine_Master.PID AND 

Eng ine_MasterP rice. ETID=Engine_Master.ETID AND 

Engine_MasterPrice.NomOrActual=1 

OPEN EngineJVlasterDeleteCursor 
40 FETCH NEXT FROM Engine_MasterDeleteCursor INTO @yEM_ETID 

WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

SELECT @zMessage = 'PSPriceCreateActualEntries, actual EngineJvlasterPrice removed.. 
45 EXECUTE usp_Message @zMessage 

DELETE 



FROM 



Engine„MasterPrice 



WHERE 

50 ETID=@yEM_ETID AND 

NomOrActuaI=1 

COMMIT WORK 

FETCH NEXT FROM Engine_MasterDeleteCursor INTO @yEM_ETID 

END 

55 CLOSE Engine_MasterDeleteCursor 

DEALLOCATE Engine.MasterDeleteCursor 
/* 



* Now bulk populate the engine 
60 * pricing information. Taking nom 

* pricing entries and creating actual 

* pricing entries. 

*/ 

65 SELECT ©zMessage = 'PSPriceCreateActualEntries, running Gaslnv cursor... 

EXECUTE usp.Message ©zMessage 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

DISTINCT 

70 (Gaslnv.PKG) 
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FROM 

Gaslnv 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
5 Gaslnv.PriceType^l 
OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yPKG 
WHILE @@FETCH_STATUS = 0 
BEGIN 

10 BEGIN TRANSACTION 

SELECT ©zMessage = 'PSPriceCreateActualEntries, obtaining price entries for Gaslnv Package...' 
EXECUTE uspj/lessage ©zMessage 

DECLARE Engine_MasterCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

15 DISTINCT 

(ETID) 
FROM 

Engine J/laster 

WHERE 

20 P!D=@yPKG 

OPEN EngineJvlasterCursor 

FETCH NEXT FROM EngineJvlasterCursor INTO ©yETID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

25 SELECT ©zMessage = 'PSPriceCreateActualEntries, inserting actual prices...' 

EXECUTE usp_Message ©zMessage 
INSERT 

INTO 

Engine_MasterPrice 

30 (ETID.PriceTag.OperandVariabie.PriceVariable.CreateUser, 

CreateDate.LastUpdateUser.LastUpdateDate^SequenceNo^omOrActual) 

(SELECT 

ETID PriceTag^perandVariable^riceVariable^reateUser.CreateDate^astUpdateUser.LastUpdateDate, 
35 SequenceNo,1 FROM Engine J/lasterPrice WHERE ETlD=@yETlD 

AND NomOrActual=0) 

FETCH NEXT FROM Engine J/lasterCursor INTO ©yETID 

END 

CLOSE Engine_MasterCursor 
40 DEALLOCATE Engine_MasterCursor 

COMMIT WORK 

FETCH NEXT FROM GaslnvCursor INTO @yPKG 

END 

CLOSE GaslnvCursor 
45 DEALLOCATE GaslnvCursor 

END 



50 



55 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceMarkActuaIAdjustments( 
50 ©GasMonthx DATETIME 



AS 

BEGIN 

SETNOCOUNT ON 

65 r 



r************** **************** ** * 



Name: usp_PSPriceMarkActualAdjustments 

Description: This routine will go through each inventory (and engine 
70 records) in order to identify and mark those records that had some sort of 



) 
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an actualization adjustment (price or volume). The invoice number for sales 
will get reset to a 'A' {last character) if it currently exists as an 'N\ 

Inputs: 

5 

GasMonthx (Gas Month to calculate), 
History: 

10 12/15/1999 JAMIE Original creation 



15 



* Declare all variables and cursors 

* that are needed by this process. 

20 DECLARE ©zMessage VARCHAR(254) 

DECLARE ©yAcctg Identifier VARCHAR(1 2) 
DECLARE ©zAcctgldentifier VARCHAR(12) 
DECLARE ©zLastChar VARCHAR(1) 
25 DECLARE @zlnvoiceLength INTEGER 



30 



35 



DECLARE ©qTID INTEGER 



* First set the modified by actuals flag 

* across the board for all gasinventory 

* items that have a price type of T 

* (this includes 'Other Costs'. 
* 

* The defaults is set to 'NT then go 

* and override with changes. 



*/ 

40 SELECT ©zMessage = ***** STARTED PSPriceMarkActualAdjustments' 

EXECUTE uspJVIessage ©zMessage 

DECLARE Gaslnvl Cursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

TID 

45 FROM 

Gasinv 

WHERE 

GasMonth=@GasMonthx AND 
PriceType = 1 

50 OPEN Gaslnvl Cursor 

FETCH NEXT FROM GaslnvlCursor INTO ©qTID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 
55 UPDATE 

Gasinv 
SET 

ModifiedByActuals='N' 

WHERE 

60 TID = ©qTID 

COMMIT WORK 

FETCH NEXT FROM GaslnvlCursor INTO ©qTID 

END 

CLOSE GaslnvlCursor 
65 DEALLOCATE Gaslnvl Cursor 

r 



* At this point all of the gas inventory 

* items that have had some sort of 
70 * modification done on them between 
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* noms and actuals will have been 

* updated to a Y. Now go and reset 
*the accounting identifier for each of 

* these records. 

*/ 

SELECT ©zMessage = PSPriceMarkActuaiAdjustments, make any modifiications* 
EXECUTE usp .Message ©zMessage 

DECLARE Gaslnv2Cursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
10 SELECT 

DISTINCT 
(G.Acctg Identifier) 
FROM 

GaslnvAS G, 

15 Engine AS E 

WHERE 

GasMonth=@GasMonthx AND 
G.PriceType=1 AND 
E.TlD=G.TID AND 

20 (E.PriceStatusoO OR E.VolumeStatus<>0) 

OPEN Gaslnv2Cursor 

FETCH NEXT FROM Gaslnv2Cursor INTO ©yAcctg Identifier 
WHILE @@FETCH_STATUS = 0 
BEGIN 

25 BEGIN TRANSACTION 

/* 

* Make sure that it is a valid 6 digit 

* invoice number AND the sixth digit 
30 * contains an 'N' (for noms). 

* Update ail if this criteria has been 
*met. 

*/ 

35 SELECT @zInvoiceLength=LEN(RTRIM(LTRIM(@yAcctg Identifier))) 

IF @z!nvoiceLength=6 
BEGIN 

SELECT @zAcctgldentifieFRTRIM(LTRIM(@yAcctgldentifier)) 
SELECT @zLastChaFR!GHT(@zAcctgldentifier,1) 
40 IF @zLastChar='N' 

BEGIN 

SELECT @zAcctgldentifier=LEFT(@zAcctgldentifier ) 5)+'A' 
UPDATE 

Gaslnv 

45 SET 

ModifiedByActuals=Y, 

Acctg identifier=@zAcctg Identifier 

WHERE 

GasMonth=@GasMonthx AND 

50 Acctg ldentifier=@yAcctgidentifier 

END 

END 

COMMIT WORK 

FETCH NEXT FROM Gas(nv2Cursor INTO ©yAcctg identifier 

55 END 

CLOSE Gaslnv2Cursor 
DEALLOCATE Gaslnv2Cursor 

SELECT ©zMessage = '**** FINISHED PSPriceMarkActualAdjustments' 
EXECUTE usp_Message @zMessage 
60 END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

70 SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
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25 



40 



GO 

CREATE PROCEDURE usp_PSPricePopuiateEngine( 



@PIDx INTEGER, 
©WhichPricex INTEGER, 
@GasMonthx DATETIME, 
©DBCRx INTEGER 



AS 

10 BEGIN 



/* 

********************i 
Name: usp_PSPricePopulateEngine 

1 5 Description: Make sure that the price entries are populated on the engine 

master for the respective Engine_Master pricing records. Only those 
engine records with pricetype=1 (STID=8 or STID=9) wilt be manipulated by 
this process. 

20 Inputs: 

PIDx (unique Package ID) 
WhichPricex(0=Nomination, 1 =Actual) 
GasMonthx (gas month calculation applicable toward) 
DBCRx (0=Purchase l 1=Sale) 



History: 

05/14/99 JAMIE Original Creation 



30 09/27/99 JAMIE Modify this process to check for index baskets AND IF the 

index basket is comprised of daily indices then populate the entire month 
with the basket information. 

01/27/00 JAMIE Modified to delete engine records while in the actuals phase 
35 if the nom information is zero (all nom information, price, volume, amount, etc.). 



r******* ******************************* 



*/ 

r 

* Declare ail variables and cursors 

* that are needed by this process. 



*/ 

45 DECLARE ©dPriceEntryType VARCHAR(12) 

DECLARE ©dPriceVariable VARCHAR(15) 
DECLARE ©tmpDailyindexCount INTEGER 
DECLARE ©tmpUseEffective DATETIME 
DECLARE ©tmpEndDate DATETIME 

50 DECLARE ©tmpPrevEffective DATETIME 

DECLARE ©tmpNextEffectiveDate DATETIME 
DECLARE ©tmpNumberDays DATETIME 
DECLARE ©tmpVolumelnPeriod DECIMAL(19,2) 
DECLARE ©tmpDateTollse DATETIME 

55 DECLARE ©tmpEndEffectiveDate DATETIME 

DECLARE ©yETID INTEGER 
DECLARE ©yEffective DATETIME 
DECLARE @ySTID INTEGER 
DECLARE ©yVolLevel INTEGER 

60 DECLARE ©yVolGroup INTEGER 

DECLARE ©yVarFixed INTEGER 
DECLARE @yMMBtuMCF INTEGER 
DECLARE ©yTierThreshold INTEGER 

65 DECLARE @yTID INTEGER 

/* 

****************************************** 

* First, Go out and delete entries off the 
70 * engine database related to this particular 
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15 
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40 



45 



50 



* package. If the pipeline actuals are 

* being processed then just go and 

* initialize any existing Engine record 

* 'Actual' buckets to zero (leave the 

* preexisting engine records intact). 

* Modified on 01/27/2000 to delete engine 

* records off actuals IF there are no nom 

* numbers stored on the records... 

7 

IF @WhichPricex=0 
BEGIN 



DELETE 



FROM 
WHERE 



DBCR=@DBCRx) 
END 

IF @WhichPricex=1 
BEGIN 



DELETE 



FROM 
WHERE 



DBCR=@DBCRx) AND 



UPDATE 



Engine 
SET 



WHERE 



DBCR=@DBCRx) 
END 

/* 

* First do a loop on all of the 

* Engine_Master records in order to 

* remove any that don't have any price 

* records associated to it... (Orphans).. 

* A commit point is placed here in order to 

* insure that subsequent cursor activity 

* only picks up valid price records. 



Engine 

TID=ANY(SELECT TID FROM Gaslnv WHERE PKG=@PlDxAND PriceType=1 AND 



Engine 

TID=ANY(SELECTTID FROM Gaslnv WHERE PKG=@PIDxAND PriceType=1 AND 

PriceOrRateNom=0 AND 

Volume=OAND 

AmounK) 



PriceOrRateAct=0 1 

VolumeAct=0, 

AmountAct=0 

TID=ANY(SELECT TID FROM Gaslnv WHERE PKG=@PIDx AND PriceType=1 AND 



7 

DECLARE Engine_MasterCursor1 CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

55 em.ETID, 

em.Effective, 
em.STID, 
em.VolLevel, 
em.VolGroup, 

60 em.VarFixed, 

em.MMBtuMCF, 
em.TierThreshoid 
FROM 

Engine_MasterAS em 

65 WHERE 

(em.PID=@PIDx) 

ORDER BY 

em.Effective 

OPEN Engine JvlasterCursorl 
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FETCH NEXT FROM Engine.MasterCursort INTO 
@yETID 1 ^Eff^ve 1 @ySTID,@yM^ 
WHILE @@FETCH_STATUS = 0 
BEGIN 

5 IF ISNULL((SELECT countf) FROM Engine_MasterPrice WHERE ETID=@yET!D),0) < 1 

BEGIN 

DELETE 

FROM 

Engine JViaster 

10 WHERE 

ETID=@yETID 

END 

FETCH NEXT FROM Engine_MasterCursor1 INTO 
©yETiD.gyEffective.tgySTID^yVolLeve^yVolGroup.gyVarFixed.gyMMBtuMCF^yTierThreshold 

15 END 

CLOSE EngineJvlasterCursorl 
DEALLOCATE EngineJvlasterCursorl 

/* ^ iAUAU ^ AAAiJLJLJUJLJLJLJL , i:-t 

20 * Now loop through the existing 

* Engine_Master records. These are the 

* actual price entries that were input 

* by the user. There can be a record 

* PER DAY or a single record for the 
25 * entire month. Only 1 entry PER 

* Effective date will be stored within 

* the Engine table. That is why the 

* tmpPrevEffective is used within the 

* cursor process. 



55 



30 

*/ 

SELECT @tmpPrevEffective='0 1-01-1 900' 

DECLARE Engine_MasterCursor2 CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

35 em.ETID, 

em.Effective, 
em.STlD, 
em.VolLevel, 
em.VolGroup, 

40 em.VarFixed, 

em.MMBtuMCF, 

emTierThreshold 

FROM 

Engine_MasterAS em 

45 WHERE 

(em.PID=@P!Dx) 

ORDER BY 

em.Effective 

OPEN Engine_MasterCursor2 
50 FETCH NEXT FROM Engine Jv1asterCursor2 INTO 

©yETID.QyEffective^ySTlD.gyVolLevel^yVolGroup^yVarFixed^yMMBtuMCF^yTierThreshold 
WHILE @@FETCH_STATUS = 0 
BEGIN 

/* 



c**iHHH^ ******************************* 



* Check for daily index entries... If they 

* are found then go and calculate the 
*end date for which to insert engine 

* records (automating a daily price 
60 * entry to the engine for each day of 

* the month up thru the end of the month 

* or to the next effective date. 

* This will also check for index basket 
65 * monthly entries. If the index basket 

* contains daily indices then populate 

* each day of the month just as if it 

* was a daily index. 



****************************************** 



70 */ 
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IF @yEffective<>@tmpPrevEffective 
BEGIN 

EXECUTE uspJLastDay @GasMonthx,@tmpEndDate OUTPUT 
SELECT @tmpDailylndexCount=0 

5 DECLARE DailyCheckCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 

SELECT 

p.PriceEntryType, 
etnp.PriceVariable 
FROM 

1 q Engine_MasterPrice AS emp, 

PriceComponents AS p 

WHERE 

(emp.ETID=@yETID) AND 
(emp.NomOrActual=@WhichPncex) AND 
1 5 (p.PriceTag=emp.PriceTag) AND 

(p.PriceEntryType='Daily IDX* OR 

p.PriceEntryType- Basket IDX') 

OPEN DailyCheckCursor 
FETCH NEXT FROM DailyCheckCursor INTO @dPriceEntryType,@dPriceVariable 
20 WHILE @@FETCH_STATUS = 0 

BEGIN 

IF (@dPriceEntryType='Daily IDX') AND (@tmpDailylndexCount=0) 
BEGIN 

SELECT @tmpDailylndexCount=1 

25 END 

IF (@dPriceEntryType='Basket IDX') AND (@tmpDailylndexCount=0) 

BEGIN 

SELECT ©tmpDaiiylndexCount = ISNULL((SELECT 

count(*) FROM IndexBasketLink.lndexRef 

30 

WHERE (indexBasketLink.lndexBasket!D=@dPriceVariabIe) AND 

(lndexRef.lndexlD=lndexBaskelink.lndexlD) AND 
35 (lndexRef.Dailylndex=1)),0) 

END 

FETCH NEXT FROM DailyCheckCursor INTO ©dPriceEntryType.gdPriceVariabie 
END 

CLOSE DailyCheckCursor 
40 DEALLOCATE DailyCheckCursor 

IF ©tmpDailylndexCounM) 
BEGIN 

SELECT @tmpEndEffectiveDate=@yEffective 

END 

45 ELSE 

BEGIN 

SELECT @tmpEndEffectiveDate=ISNULL((SELECT DATEADD(day,- 

1,MIN(em.eifective)) FROM Engine.Master AS em 



50 (em.PlD=@PlDx) AND (em.Effective>@yEffective)),@tmpEndDate) 

END 



* Now insert the new Engine records. 
55 * These inserts will be based on a loop 

* between the effective date from the 

* Engine_Master record and the temp 

* field tmpEndEffectiveDate. This will 

* provide for the 'proliferation' of 
60 * daily index price entries (to the 

* engine). Only insert engine records 

* if there is some sort of volume 

* Norn or PipelineActuaf on associated 

* with a specific day. 



65 



70 



WHERE 



* If pipeline actuals then inserts do 

* not automatically happen. A check 

* is first made to see if the engine 

* record is already there... 
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FORWARDONLY FOR 



AND 

or(gd.PipelineActuals<>0)) 



*/ 

SELECT @tmpUseEffective=@yEffective 
WHILE ©tmpUseEffective <= ©tmpEndEffectiveDate 
BEGIN 

DECLARE GaslnventoryCursor CURSOR LOCAL STATIC 



SELECT 



DISTINCT 

g.TiD 

FROM 



WHERE 



Gaslnv ASg, 
GasinvD AS gd 

(gd.TID=g.TlD) AND 
(g.PID=@PIDx)AND 
(g.GasMonth=@GasMonthx) AND 
(g.PriceType=1)AND 
(g.DBCR=@DBCRx) AND 
(gd.GasDay>=@tmpUseEffective) 



((gd.Nom<>0) 

OPEN GaslnventoryCursor 

FETCH NEXT FROM GaslnventoryCursor INTO @yTID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

IF (SELECT countO FROM Engine WHERE TiD=@yTID 



AND STID=@ySTID AND 

Effective=@tmpUseEffective AND VolLevel=0)=0 



BEGIN 



INSERT 



INTO 



35 



40 



45 



Engine 

(TlD,STID,Effective,VolLevel 1 VolGroup 1 MMBtuMCF ) EM_ETID) 

(@yTID 1 @ySTID t @tmpUseEffective,0,@yVolGroup l @yMMBtuMCF,@yETID) 

ELSE 



VALUES 



END 
BEGIN 



UPDATE 



Engine 
SET 



50 



55 



60 



65 



70 



EM_ETID=@yET!D 

TID=@yTID AND 
STlD=@ySTID AND 
Effective=@tmpUseEffective AND 
VolLevel=0 



WHERE 



END 

FETCH NEXT FROM GaslnventoryCursor INTO @yTID 
END 

CLOSE GaslnventoryCursor 

DEALLOCATE GaslnventoryCursor 
SELECT @tmpUseEffective=DATEADD(day ) 1 ,@tmpUseEffective) 
END 



END 



SELECT @tmpPrevEffective=@yEffective 
FETCH NEXT FROM Engine_MasterCursor2 INTO 
@yETlD,@yEffective,@ySTID,@yVolLevel,^ 
END 

CLOSE Engine_MasterCursor2 
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DEALLOCATE Engine_MasterCursor2 
END 



5 



10 GO 

SET QUOTED .IDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
15 GO 



CREATE PROCEDURE usp_PSPriceTransportAll( 

@GasMonthx DATETIME, 
©WhichPricex INTEGER, 
20 @PKGx INTEGER, 

@EntityCIDxVARCHAR(12) 
) 

AS 

BEGIN 
25 /* 



Name: usp_PSPriceTransportAH 

Description: This is the main process for calculating the transport costs 
30 for ail transport entries within the gas inventory database. These are 

identified in the gas inventory database as PriceType=3 purchase and sale 
entries (DBCR=0 or 1). 

The recalculation of costs will only be allowed to occur when the gas month 
35 status has been set to the appropriate month 



Inputs: 

GasMonthx - Gas Month to calculate 
40 WhichPricex - 0=Nominations, 1 ^Actualizations 

PKGx - either 0 for all or a specific package (deal) number 
EntityClDx - owning company id 



History: 

45 

06/30/1999 JAMIE Orignal Creation. 

03/22/2000 JAMIE Modified to move the Divie process to the main module, in addition, 
modified to handle the new routing table (LegDetail) and build routing records 
50 based on the routing rules within this table. 

05/24/2000 JAMIE Modified to be aware of entity and product types and services. In 

addition, modifications made to calculate based on new routing structure... 
************** **** ****** ************** ******** ********************* ******************** 

55 */ 

I* 

* Declare all variables and cursors 

* that are needed by this process. 

g Q ****************************************** 

7 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zPackage INTEGER 
DECLARE ©zRecTID INTEGER 
65 DECLARE ©zDelTID INTEGER 

DECLARE @zVolume DECIMAL(19,2) 
DECLARE @zAmountDECIMAL(19,2) 
DECLARE @zRate DECiMAL(19,8) 
DECLARE ©zLastDay DATETIME 

70 
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DECLARE @yT!D INTEGER 



DECLARE ©yGasDay DATET1ME 
DECLARE ©yDelMID INTEGER 
5 DECLARE ©yRecMID INTEGER 

DECLARE @yLID INTEGER 
DECLARE @yReceiptDECIMAL(19,2) 
DECLARE @yFuelOrOtherDECIMAL(19,2) 
DECLARE ©yDelivered DECIMAL(19,2) 

1 0 DECLARE ©yTransportationRate DECIMAL(19,8) 

DECLARE @yGatheringRate DEC1MAL(19,8) 
DECLARE ©yFuelPercent DECIMAL(19,8) 
DECLARE ©yPlantVolReduction DEClMAL(t9,8) 
DECLARE @yKID INTEGER 

1 5 DECLARE ©yRMeterPipe VARCHAR(1 2) 

DECLARE @yRMeterMeterVARCHAR(14) 
DECLARE ©yDMeterPipe VARCHAR(12) 
DECLARE ©yDMeterMeter VARCHAR(14) 
DECLARE @yCID VARCHAR(12) 

20 DECLARE ©yKProductID INTEGER 

DECLARE ©yKServiceiD INTEGER 
DECLARE ©yPurchasePKG INTEGER 
/* 

****************************************** 

25 * First jntialize any existing volumes for 

* this month on the gas inventory table 

* to a zero. In addition, set the 

* appropriate volume amounts and price 

* amounts on the 'Engine' table to zeros. 



30 



*/ 

EXECUTE uspJLastDay @GasMonthx,@zLastDay OUTPUT 

SELECT @zMessage = ' PS P riceTran portAII , Initializing Gas Inventory and Engine Information....' 
EXECUTE usp_Message @zMessage 
35 DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 

SELECT 

Gaslnv.TID 
FROM 

Gaslnv, 

40 K 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=3 AND 
K.KID=GaslnvXID AND 
45 K.EntityCID=@EntityCIDx 
OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yTID 
BEGIN TRANSACTION 
WHILE @@FETCH_STATUS = 0 
50 BEGIN 

IF @WhichPricex=0 
BEGIN 

UPDATE 

GaslnvD 

55 SET 

Nom=0, 
EstAct=0 

WHERE 

TlD=@yTID AND 

50 GasDay BETWEEN ©GasMonthx AND ©zLastDay 

UPDATE 

Engine 
SET 

Volume=0, 

55 Amount=0, 



WHERE 



PriceOrRateNom=0 
TID=@yTID 



END 

70 IF @WhichPrlcex=1 



-82- 



BEGIN 



UPDATE 
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UPDATE 



GaslnvD 
SET 

WHERE 



Engine 
SET 



WHERE 



PipelineActuals=0 
T!D=@yTID AND 

GasDay BETWEEN ©GasMonthx AND ©zLastDay 



VolumeAct=0, 
AmountAct=0, 
PriceOrRateAct=0 



TlD=@yTID 



END 



FETCH NEXT FROM GaslnvCursor INTO @yTID 



END 



SELECT ©zMessage = 'PSPriceTranportAII, Finished initializing Gas inventory and Engine Information....' 
EXECUTE usp_Message ©zMessage 
COMMIT WORK 
CLOSE GaslnvCursor 
DEALLOCATE GaslnvCursor 

r 

* Now loop through each of leg detail 

* records for the month for this entity 

* and determine appropriate transportation 

* rates. 
* 

* Gas inventory (PriceType=3) records will 

* be created (along with package if needed). 

* Engine records will aiso be created. 
*/ 

SELECT ©zMessage = 'PSPriceTranportAII, Analyzing Routing (legdetai!) cursor....' 
EXECUTE usp.Message @zMessage 

DECLARE LegDetailCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

LD.GasDay, 

LD.DelMID, 

LD.RecMID, 

LD.LiD, 

LD.Receipt, 

LD.FuelOrOther, 

LD.Deiivered, 

LD.TransportationRate, 

LD.GatheringRate, 

LD.FuelPercent, 

LD.PIantVolReduction, 

LD.PurchasePKG, 

RMeter.PipeField, 

RMeter.Meter, 

DMeter.PipeFleld, 

DMeter.Meter, 

LegRef.KID 

FROM 

LegDetailAS LD, 
LegRef, 

Meter AS RMeter, 
Meter AS DMeter 



WHERE 



K.KID = Package.KID AND 



LegRef.LID=LD.LID AND 
RMeter. Ml D=LD.RecMID AND 
DMeter.MiD=LD.DelMlD AND 

LD.PurchasePointTID IN (SELECT TID FROM Gaslnv,Package t K WHERE Package.PKG=Gaslnv.PKG AND 



-83- 



GasInv.GasMonth=@GasMonthx and Gaslnv.DBCR=0 

and Gaslnv.PriceType=1 and K.EntityClD=@EntityClDx) AND 

LD.GasMonth=@GasMonthx AND 
LD.GasDay>=@GasMonthx AND 
5 LD.GasDay<=@zLastDay AND 

LD.NomOrActuals=@WhichPricex AND 
LD.LIDoO AND 

(LDTransportationRateoO OR LD.GatheringRate<>0 OR LD.FuelPercent<>0 OR 

LD.PIantVolReductionoO) 
10 ORDER BY 

LegRef.LID 

OPEN LegDetaiiCursor 

FETCH NEXT FROM LegDetaiiCursor INTO ©yGasDay.gyDelMID.gyRecMID.OyLID.gyReceiptgyFuelOrOther, 
15 @yDeiivered,@yTransportationRate,@yGathe^ 

©yRMeteifipe^yRMeterMeter.QyDMeterPipe^yDMeterMeter^yKID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

20 BEGIN TRANSACTION 

/* 

* First check to see if a transportation 

* package has been setup for this 
25 * contract/company,.. If not, then set 

* it up... A commit is immediately 

* performed here in order to 'preserve' 

* the package information (and its 

* associated ID). 



30 



*/ 

SELECT @yKProductlD=KProductiD p @yKService!D=KServicelD FROM Package where PKG=@yPurchasePKG 
SELECT @yCID=C!D FROM K WHERE KID = @yKID 

SELECT @zPackage=ISNULL((SELECT PKG FROM Package WHERE KID=@yKlD AND 
35 PackageGasMonth=@GasMonthx AND 

KProductlD=@yKProductiD AND 

KServiceID=@yKServicelD);) 

IF (@zPackage=") OR (©zPackage IS NULL) 
BEGIN 

40 SELECT @zPackage=(SELECT max(PKG) FROM package) + 1 

INSERT 

INTO 

Package 

45 (PKG.StartDate^ndDate^escription.Package.Create.KlD.CID^ackageGasMonth.PackageStatus^ackage.CreateBy, 

LastUpdateBy,LastUpdateDate,KProductD,KServicelD) 

VALUES 

(@zPackage,@GasMonthx,@zLastDay/TRANSPORT 

DEAL',getdate() I @yKID 1 @yCID,@GasMon1hx 1 , Created',user_name(), 
50 userjiame(),getdate(),@yKProdudD,@yKServicelD) 

END 

* At this point we know that a package 
55 * has been created AND we have the 

* package identifier. Now build the 

* Gaslnv records IF they do not already 

* exist for this package. By adding a 

* new inventory item the daily (GaslnvD) 
60 * records are automatically created for 

*each day ofthemonth,^ 

7 

SELECT @zRecTID=ISNULL((SELECT T1D FROM Gasinv WHERE GasMonth=@GasMonthx AND 
65 PKG=@zPackage AND PriceType=3 AND KlD=@yKlD AND 

PipeField=@yRMeterPipe AND 

Meter=@yRMeterMeter AND PID=@yLID AND DBCR=0),0) 

IF@zRecTID=0 

BEGIN 

70 INSERT 
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INTO 

Gaslnv 

(GasMonth ) ClDPipeField ) Meter 1 DBCR,KID ) PID 1 PKG 1 Stat f PriceType ) Gasinv_UT ) 
5 Nom,EstAct 1 Gaslnv_UU,GasInv_MlD 1 PipelineActuals) 

VALUES 

(©GasMonthx.gyClD^yRMeterPipe.gyRMeterMeter.O^yKID.gyLiD.^PackageJ^^etdateO, 

OAuserjiameO,@yRecMID ( 0) 

1 0 SELECT @zRecTID=ISNULL((SELECT TID FROM Gasinv WHERE GasMonth=@GasMonthx 

AND 

PKG=@zPackageAND 

PriceType=3 AND KID=@yKID AND PipeField=@yRMeterPipe AND 

Meter=@yRMeterMeterAND 

15 PID=@yLIDANDDBCR=0),0) 

END 

SELECT @zDe!TID=ISNULL((SELECT TID FROM Gaslnv WHERE GasMonth=@GasMonthx AND PKG=@zPackage 

AND 

20 PriceType=3 AND KID=@yKID AND 

PipeField=@yDMeterPipe AND Meter=@yDMeterMeter AND 

PID=@yLID AND DBCR=1),0) 

IF @zDelTID=0 

BEGIN 

25 INSERT 

INTO 

Gaslnv 

(GasMonth,CID,PipeField,Meter ) DBCR ) KID,PID,PKG t Stat ) PriceType J GasInv_UT ) 
30 Nom,EstAct l Gaslnv_UU 1 Gaslnv_MlD 1 PipelineActuals) 

VALUES 

(@GasMonthx,@yCID I @yDMeteifipe,@yDMeterMeterJ 1 @yKID ) @yLID f @zP 

O.O.useL-nameO.QyDelMID.O) 

35 SELECT @zDelTID=ISNULL((SELECT TID FROM Gasinv WHERE GasMonth=@GasMonthx 

AND PKG=@zPackage AND 



AND PipeField=@yDMeterPipe AND Meter=@yDMeterMeter AND 
40 END 



PriceType=3ANDKID=@yKID 
PID=@yLIDANDDBCR=1),0) 



* At this point the gas package and gas 

* inventory items have been determined 
45 * (created if needed). Now go and post 

* the volume to the GaslnvD table. 

*/ 

IF @WhichPricex=0 
50 BEGIN 



UPDATE 



GaslnvD 
SET 



55 WHERE 



UPDATE 

GaslnvD 

60 SET 

WHERE 



65 END 

IF @WhichPricex=1 
BEGIN 

UPDATE 

GaslnvD 

70 SET 



nom=(nom+@yReceipt) 

TID=@zRecTlD AND 
GasDay=@yGasDay 



nom=(nom-Kg>yDelivered) 

TID=@zDelTID AND 
GasDay=@yGasDay 
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65 



WHERE 



UPDATE 

GaslnvD 
SET 



PipelineActuais=(PipelineActuais+@yReceipt) 

TID=@zRecTID AND 
GasDay=@yGasDay 



Pipe!ineActuals=(Pipe!ineActuals+@yDelivered) 

TID=@zDeiTlD AND 
GasDay=@yGasDay 



WHERE 

1 0 TID=@zDeiT!D AND 

END 

I* 

****************** ****** ****************** 

15 * Any transport costs here??? 

* (engine transaction ID is 3) 
****************************************** 

*/ 

IF @yTransportationRate<>0 
20 BEGIN 

SELECT @zRate=@yTransportationRate 

SELECT @zVolume=@yReceipt 

SELECT @zAmount=ROUND((@zRate*@zVolume),2) 

IF tSNULL((SELECT count(*) FROM Engine WHERE TID=@zRecTID AND 

25 Effective=@GasMonthx AND STID=3),0) < 1 

BEGIN 

IF @WhichPricex=0 

BEGIN 
INSERT 

INTO 

Engine 



(TID.Effedwe.STID.VolLev^ 

VALUES 

(@zRecTlD 1 @GasMonthx J 3 ) 0,@zPackageJ,getdateO ) user_name() 1 @zVolume ( @zAmount J @zRat^^ 

IF @WhichPricex=1 

BEGIN 
INSERT 

INTO 

Engine 

(TlD^ective,STID,VolLevel,VolGroup,MMBtuMCF^ 

VALUES 



(©zRecTID^GasMonthx^.O^zPackage.l.getdateO.useLnameO.SzVoiume^zAmount^zRate) 

END 

50 ELSE 

BEGIN 

IF @WhichPricex=0 

BEGIN 
UPDATE 

Engine 
SET 

Volume=(Volume+@zVolume), 
Amount=(Amount+@zAmount), 



60 PriceOrRateNom=ROUND(((Amount4@zAmount)/(Vo!urne-f@zVolurne)) ) 4) 

WHERE 

TID=@zRecTID AND 



Effective=@GasMonthx AND STID-3 



END 

IF @WhichPricex=1 
BEGIN 
UPDATE 

jq Engine 
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SET 



10 



20 



35 



VolumeAct=(VolumeAct-+@zVotume) ) 
AmountAct=(AmountAct+@zAmount) ) 

PriceOi^ateAct=ROUND(((AmountAct^zAmount)/(VoIumeAct-+@zVoiume)) ) 4) 



WHERE 



Effective=@GasMonthx AND 



TID=@zRecTID AND 
STID=3 



END 



END 

15 END 



* Any gathering costs here??? 

* {engine transaction ID is 4) 

*/ 

IF @yGatheringRate<>0 
BEGIN 

SELECT @zRate=@yGatheringRate 
25 SELECT @zVolume=@yReceipt 

SELECT @zAmount=ROUND((@zRate*@zVolume),2) 

IF ISNULL((SELECT count(*) FROM Engine WHERE TID=@zRecTID AND 

Effective=@GasMonthx AND STID=4),0) < 1 

BEGIN 

30 IF @WhichPricex=0 

BEGIN 
INSERT 

INTO 

Engine 



(TID Effective.STID.VolLevel.VolGroup.MMB 

VALUES 



(@zRecTID,@GasMonthxAO,@zPac^ 
40 END 

IF @WhichPricex=l 

BEGIN 
INSERT 

INTO 

45 Engine 
(TID.Effec^e.STID.VolLevel.VolGro 

VALUES 

50 {@zRecTID,@GasMonthxAO,@zPackag^ 

END 

END 

ELSE 

BEGIN 

55 IF @WhichPricex=0 

BEGIN 
UPDATE 

Engine 
SET 

50 Volume=(Volume+@zVolume), 

Amount=(Amount+@zAmount), 

PriceOrRateNom=ROUND(((Amount-HgzAmount)/(Voiume-^zVolume)),4) 

WHERE 

Q5 TID=@zRecTID AND 

Effective=@GasMonthx AND 

STID=4 

END 

70 IF @WhichPricex=1 
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65 



BEGIN 
UPDATE 

Engine 
SET 



Volu meAct=(VolunrteAct+@zVolume) , 
AmountAct=(AmountAct-+@zAmount) ) 
10 PriceOrRateAct=ROUND(((AmountAct^zAmount)/(VolumeAct+@zVolume)),4) 



WHERE 



TID=@zRecTlD AND 



Effective=@GasMonthx AND 

15 STID=4 

END 

END 

END 

/* 

2 Q ****************************************** 

* Any fuel costs?? 

* {engine transaction ID is 5) 
****************************************** 

*/ 

25 IF @yFuelPercent<>0 

BEGIN 

SELECT @zRate=@yFuelPercent 
SELECT @zVoiume=@yReceipt*@zRate 

IF ISNULL({SELECT countf) FROM Engine WHERE TlD=@zRecTlD AND 

30 Effective=@GasMonthx AND STID=5),0) < 1 

BEGIN 

IF @WhichPricex=0 

BEGIN 
INSERT 

35 INT0 

Engine 

(TID Effective.STID.VolLevel.VolGro 

VALUES 

40 

{@zRecTID ) @GasMonthx ) 5 ) 0,@zPackage > 1 ) getdate() ) user_name() l @zVolume ) 0,@zRate) 

END 

IF @WhichPricex=1 

BEGIN 

45 INSERT 

INTO 

Engine 

(TIDEffective f STID,VolLevel,VolGroup,MMBtuMCF^ 
50 VALUES 

(©zRecTID^GasMonthx^.O^zPackage.^getdateO^secnamefl.QzVoSume^.gzRate) 

END 

END 

55 ELSE 

BEGIN 

IF @WhichPricex=0 

BEGIN 
UPDATE 

60 En 9 ine 

SET 

Volume=(Volume+@zVolume) 

WHERE 

TID=@zRecTID AND 



Effective=@GasMonthx AND 

STID=5 



END 

IF @WhichPricex=1 

70 BEGIN 
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UPDATE 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



Engine 
SET 



WHERE 



END 



END 



VolumeAct=(VolumeAct+@zVolume) 
Effective=@GasMonthx AND 
END 

I* 

********iHt****:(bt)Ht**iHt****** ************** 

* Any pvr?? 

* (engine transaction ID is 6) 
*/ 

IF @yPlantVolReduction<>0 
BEGIN 

SELECT @zRate=@yPlantVolReduction 
SELECT @zVolume=@yReceipt*@zRate 

IF tSNULL((SELECT count(*) FROM Engine WHERE TID=@zRecTID AND 

Effective=@GasMonthx AND STID=6),0) < 1 

BEGIN 

IF @WhichPricex=0 

BEGIN 
INSERT 

INTO 

Engine 

fTlD Effective.STIDA/olLevet.Vo^ 

VALUES 

((SzRecTID.QGasMonthx.e.O.QzPackage^.getdatetJ.user.nameO^zVolume^.gzRate) 

END 

IF @WhichPricex=1 

BEGIN 
INSERT 



TlD=@zRecTlD AND 
STID=5 



INTO 



Engine 



(TID Effective STID VolLevelVolGroup^MBtuMCF^ngine.UT.Engine.UU.VoiumeActAmountActPriceOrRateAct) 

VALUES 

(@zRecTlD f @GasMonthx,6 J 0,@zPackage J 1 ) getdate() ) user_name(),@zVolume ) 0 J @zRate) 

END 



ELSE 



END 
BEGIN 

IF @WhichPricex=0 



BEGIN 
UPDATE 



WHERE 



Effective=@GasMonthx AND 



END 

IF @WhichPricex=1 
BEGIN 
UPDATE 



Engine 
SET 

Volume=(Volume+@zVolume) 

TiD=@zRecTID AND 

STID=6 



Engine 
SET 



70 



VolumeAct=(VolumeAct-^Volume) 
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WHERE 

TID=@zRecT!DAND 

Effective=@GasMonthx AND 

5 STID=6 

END 

END 

END 

COMMIT WORK 

1 0 FETCH NEXT FROM LegDetailCursor INTO @yGasDay 1 @yDelMID,@yRecMID l @yLlD J @yReceipt@yFuelOrOther 1 

©yDelivered.gyTrareponfctionRate,®^^ 

@yRMeterPipe > @yRMeterMeter,@yDMeterPipe,@yDMeterMeter,@yKID 
15 END 

CLOSE LegDetailCursor 

DEALLOCATE LegDetailCursor 

SELECT @zMessage = 'PSPriceTranportAll, Finished....' 

EXECUTE uspj/lessage ©zMessage 
20 END 



25 



30 GO 

SET QUOTED JDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
35 GO 

CREATE PROCEDURE usp„PSPriceWASPCalc( 

@GasMonthx DATETIME, 
©WhichPricex INTEGER, 
40 ©EntityCIDx VARCHAR(12) 

) 

AS 

BEGIN 

r 

Name: usp_PSPriceWaspCa!c 

Description: This is the main process for calculating the WASP price information for 
a particular gas month and type of price (nom's or pipeline actuals). The end result 
50 of this process is to post updated price amounts within the engine. The WASP calculation 

has also been modified to perform the calculations pooled by entity (passed to this 
routine), within entity by product (Oil/Gas/Liguids) and service (marketing/passthrough/etc). 

Inputs: 

55 

GasMonthx (Gas Month to calculate), 

WhichPricex (0=Nominations } ^Actualizations) 

EntityCIDx (which company is being calculated (owner company)) 

60 History: 

06/22/99 JAMIE Original creation 

07/22/99 JAMIE Include 3rd party deals within the 
65 calcualtion process. They WILL NOT BE included within the WASP calculations 

and will be treated the same as "Dedicated" (sanctioned sales) deals. This 
will ensure they are not affecting any other pricing component. 

05/01/00 JAMIE Modifications to utilize the new routing structure as part of the 
70 calculation. A check is made to see if any 'routing' entries are made to the new 
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10 



structures (for the month). If so, then this routine wiil invoke the new routines. 
Otherwise, the old routines are invoked. 

05/24/2000 JAMIE Modifications to add the EntityCIDx component to the calculation (passed 
to this routine by the calling program). In addition, modifications were made to calculate 
all WASP pricing within each unique product and service. 

08/25/2000 JAMIE Modified to remove all of the old routing routines. 

************************************* 



*/ 

/* 

************** **************************** 

* Declare all variables and cursors 
1 5 * that are needed by this process. 

*/ 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©yKProductlD INTEGER 
20 DECLARE ©yKProductName VARCHAR(50) 

DECLARE ©yKServicelD INTEGER 
DECLARE ©yKServiceName VARCHAR(50) 

25 DECLARE ProductTypesCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 

SELECT 

Processing Code! D, 

ShortDescription 

FROM 

30 SEProcessingCodes WHERE CodeType='CONTRPRODS' 

ORDER BY 

ProcessingCodelD 

SELECT ©zMessage = 'PSPriceWASPCalc, Running for Entity , -Kg£ntityCIDx+\..' 
35 EXECUTE uspj/lessage ©zMessage 

/* 

* Outermost loop is on product type... 
****************************************** 

40 */ 

OPEN ProductTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD,@yKProductName 
WHILE @@FETCH_STATUS = 0 
BEGIN 

45 SELECT ©zMessage = 'PSPriceWASPCalc, Running for Product , -^yKProductName+ , .. I ' 

EXECUTE usp_Message ©zMessage 

r 

****************************************** 
* Next loop is on service type... 

****************************************** 

DECLARE ServiceTypesCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

ProcessingCodelD, 

55 ShortDescription 

FROM 

SEProcessingCodes WHERE CodeType='CONTRSRVS' 

ORDER BY 

ProcessingCodelD 

60 OPEN ServiceTypesCursor 

FETCH NEXT FROM ServiceTypesCursor INTO @yKService!D,@yKServiceName 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

65 SELECT ©zMessage = 'PSPriceWASPCalc, Running for Service , 4@yKServiceNarne+\..' 

EXECUTE uspj/lessage ©zMessage 

r ****************************** 

* Now populate the waspresolvedrouting 
70 * tables with all sales and transport 
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* totals that were linked to purchases 

* within the route process. 

7 

5 EXECUTE usp_PSPriceWASPCalcSalesN 

@GasMonthx,@WhichPricex 1 @Entit/CIDx,@yKProductlD ) @yKServiceiD 

COMMIT WORK 

FETCH NEXT FROM ServiceTypesCursor INTO @yKServicelD p @yKServiceName 

END 

1 0 CLOSE ServiceTypesCursor 

DEALLOCATE ServiceTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD,@yKProductName 

END 

CLOSE ProductTypesCursor 
1 5 DEALLOCATE ProductTypesCursor 

/* 

* Finished. A later routine will take 

* the well prices to the actual engine 
20 * table (PSPriceAII for Purchases). A 

* commit takes place right here just to 

* make sure we limit our recovery window 

* if problems later.. Also, don't want 

* to hold locks for an extended amount 
25 * of time. 

7 

SELECT ©zMessage = 'PSPriceWASPCalc, Finished with Entity '+@EntityCIDx+'../ 
EXECUTE usp .Message ©zMessage 
30 END 



35 

GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

40 SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 

GO 

CREATE PROCEDURE usp_PSPriceWASPCalcResolveDriver( 

©GasMonthx DATET1ME, 

45 ©WhichPricex INTEGER, 

@EntityClDxVARCHAR(12), 
©IncludelnWaspx VARCHAR(10) 

) 

AS 

50 BEGIN 
I* 

Name; usp_PSPriceWaspCalcResolveDriver 

55 Description: This is the main process that controls the 'walking back 1 (resolving) 

of sales amounts back to their respective purchase deals. 

Inputs: 

60 GasMonthx (Gas Month to calculate), 

WhichPricex (0=Nominations, ^Actualizations) 

EntityCIDx (which company is being calculated (owner company)) 

IncludelnWaspx ('Common'/None' or 'Dedicated') 

65 History: 

07/28/2000 JAMIE Original creation 
*************************************** 
70 */ 
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10 



30 



* Declare all variables and cursors 

* that are needed by this process. 

****************************************** 

*/ 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©yKProductID INTEGER 
DECLARE ©yKProductName VARCHAR{50) 

DECLARE ©yKServicelD INTEGER 
DECLARE ©yKServiceName VARCHAR(50) 



DECLARE ProductTypesCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
1 5 SELECT 

ProcessingCodelD, 

ShortDescription 

FROM 

SEProcessingCodes 

20 WHERE 

CodeType='CONTRPRODS' 

ORDER BY 

ProcessingCodelD 

25 SELECT ©zMessage = 'PSPriceWASPCalcResioveDriver, Running for Entity '-KgJEntityClDx+'.Pool '+@!ncludelnWaspx+\..' 

EXECUTE uspjvlessage ©zMessage 

r 

****************************************** 



* Outermost loop is on product type,.. 
****************************************** 



*/ 

OPEN ProductTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD f @yKProductName 
WHILE @@FETCH_STATUS = 0 
35 BEGIN 

SELECT ©zMessage = 'PSPriceWASPCalcResioveDriver, Running for Product '+@yKProductName+'..: 

EXECUTE uspj/lessage ©zMessage 

/* 

40 * Next loop is on service type... 

****************************************** 

*/ 

DECLARE ServiceTypesCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

45 ProcessingCodelD, 

ShortDescription 
FROM 

SEProcessingCodes 

WHERE 

50 CodeType='CONTRSRVS' 

ORDER BY 

ProcessingCodelD 

OPEN ServiceTypesCursor 

FETCH NEXT FROM ServiceTypesCursor INTO ©vKServiceiD^yKServiceName 
55 WHILE @@FETCH_STATUS = 0 

BEGIN 

BEGIN TRANSACTION 

SELECT ©zMessage = 'PSPriceWASPCalcResioveDriver, Running for Service 

l +@yKServiceName+'... 1 

60 EXECUTE uspjvlessage ©zMessage 

EXECUTE usp_PSPriceWASPCalcResolveN 
©GasMonthx.gWhichPricex.gEntityCIDx.gyKProductlD^yKServicelD^lncludelnWaspx 

COMMIT WORK 

FETCH NEXT FROM ServiceTypesCursor INTO ©yKServicelD, ©yKServiceName 

65 END 

CLOSE ServiceTypesCursor 
DEALLOCATE ServiceTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD,@yKProductName 

END 

70 CLOSE ProductTypesCursor 
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DEALLOCATE ProductTypesCursor 

SELECT ©zMessage = 'PSPriceWASPCalcResolveDriver, Finished with Entity '-KgEntityCIDx+'.Pool , +@lncludelnWaspx+'...' 

EXECUTE uspjvlessage ©zMessage 

END 

5 



10 GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
GO 

SET QUOTEDJDENTIFIER ON SETANSLNULLS ON 
15 GO 

CREATE PROCEDURE usp_PSPriceWASPCaicResolveN( 



20 



25 AS 

BEGIN 
/* 

Name: usp_PSPriceWASPCalcResolveN 

30 

Description: This particular stored procedure is responsible for looping through and 
chasing all volumes back from purchase points back to the respective meter locations 
that originally contained the purchase volumes. 

35 History: 

05/01/2000 JAMIE Original Creation. 

05/24/2000 JAMIE Modified to include the entity, product and service. 

40 

07/28/2000 JAMIE Modified to include the IncludelnWaspx parameter so that 
the calculations can be run in a specified WASP order... 

08/17/2000 JAMIE Removed the call to PSWASPCalcPostPurchaseN. This 
45 was done based on all wasp calculation entries being setup in the 

WASPResoivedRouting table. 

*irk**ick**irkirkir*iHc1ck1rkir*irkit*1rkirkirkirt 

*/ 

50 r 

* Declare all variables and cursors 

* that are needed by this process. 

55 7 

DECLARE ©zMessage VARCHAR(254) 

SELECT ©zMessage = 'PSPriceWASPCalcResolveN Has Started for pool '+@lncludelnWaspx+*...' 
EXECUTE usp_Message @zMessage 

60 r 

* Now invoke the routine that will chase 

* the volumes, prices and amounts back to 

* the purchase points. 

7 

SELECT ©zMessage = 'PSPriceWASPCalcResolveN, Tracing back all gas (resolving sales)...' 
EXECUTE usp_Message ©zMessage 

EXECUTE usp_PSPriceWASPCalcResolveSalesN ©GasMonthx^WhichPricex^EntityClDx^KProductlDx^KServicelDx.QIncludelnWaspx 
70 /* 



©GasMonthx DATET1ME, 
©WhichPricex INTEGER, 
©EntityCIDx VARCHAR(12), 
©KProductlDx INTEGER, 
©KServicelDx INTEGER, 
©IncludelnWaspx VARCHAR(10) 

) 



-94- 



* Time to leave.. 
*/ 

5 SELECT ©zMessage - 'PSPriceWASPCalcResolveN Has Completed for Pool , +@includeInWaspx+\.: 

EXECUTE usp_Message ©zMessage 
END 

10 GO 

SET QUOTEDJDENTIFIER OFF SET ANSI_NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
15 GO 

CREATE PROCEDURE usp_PSPrioeWASPCalcResolveSalesN( 

©GasMonthx DATETIME, 
©WhichPricex INTEGER, 

on ©EntityCIDx VARCHAR(12), 

©KProductiDx INTEGER, 
©KServicelDx INTEGER, 
©IncludelnWaspx VARCHAR(10) 

) 

25 AS 

BEGIN 

r 



30 



35 



50 



65 



Name: usp_PSPriceWASPCalcResolveSales 

Description: This particular stored procedure will loop through (iteratively) all of 
the sales meter records within the WASPResolvedRouting table (type '$' records) and 
distribute their respective volumes, amounts and prices back to the purchase points 
(wieghted). 

All volumes should match here since the routing process routes purchase deals directly 
to sales deals AND the WASPResolvedRouting table was built on explicit volumes and 
links found in the LegDetail (main routing) table. 



40 Inputs: 

GasMonthx - Gas Month 
WhichPricex - 0=Nominations, 1=Actuals 
EntityCIDx - owning company 
45 KProductlDx - product id (oil, gas, liquids, etc.) 

KServicelDx - service id (marketing, passthrough, etc.) 
IncludelnWaspx - ('Common' or 'None' or 'Dedicated') 



History: 

05/01/2000 JAMIE Original Creation. 



07/20/2000 JAMIE Modified in order to capture and save resolved total amounts 
along with the resolved volume amounts. This was required in order to correct a 
55 calculation problem. 

07/28/2000 JAMIE Modified to take into consideration which WASP pool is currently 
being resolved. 

60 1 2/05/2000 JAMIE Modified to ensure that the receipt amount will not be exceeded 

when determining the volume to use. This situation only arose when certain 
unresolved records were ordered a certain way (during the resolution ritual). 
Confusing, I know, but that is the best I can do... The field zTempLeft contains 
this informaion 



70 * Declare all variables and cursors 
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* that are needed by this process. 
****************************************** 



*/ 

DECLARE ©zTempLeft DECIMAL(19,2) 
5 DECLARE ©zRound INTEGER 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zAnyUpdates VARCHAR(l) 
DECLARE ©zResolvedReceipt DEC1MAL(19,2) 
DECLARE @zReso!vedReceiptAmt DECIMAL(19,2) 

1 0 DECLARE ©zResolvedDelivered DEC1MAL(19,2) 

DECLARE ©zResolvedDeliveredAmt DECIMAL(19,2) 
DECLARE ©zReceiptLeft DECIMAL(19 P 2) 
DECLARE ©zReceiptAmtLeft DECiMAL(19,2) 
DECLARE ©zPercentToApply DEClMAL(19,6) 

1 5 DECLARE ©zSumDelivered DECIMAL(1 9,2) 

DECLARE ©zPercentReceipt DEC!MAL(19 f 6) 
DECLARE ©zUseVolume DECIMAL(19,2) 
DECLARE @zUseAmountDEClMAL(19,2) 
DECLARE @zAmountDECIMAL(19,2) 

20 DECLARE ©zNewAmount DECIMAL(19,2) 

DECLARE ©zNewPrice DECIMAL(19,6) 
DECLARE @zTempVo!ume DEC!MAL(19,2) 
DECLARE ©zTempAmount DECIMAL(19,2) 
DECLARE ©zVolumeDispersed DECIMAL(19 ( 2) 

25 DECLARE ©zAmountDispersed DECIMAL(1 9,2) 

DECLARE ©zDifference DECIMAL(19,2) 
DECLARE ©zResolvedlndicator VARCHAR(1) 
DECLARE ©zLinkUpdate VARCHAR(1) 
DECLARE ©zDeliveredLeft DEC1MAL{19,2) 

30 

DECLARE ©yDeiMID INTEGER 
DECLARE ©yRecMID INTEGER 
DECLARE ©yReceipt DECIMAL(19,2) 
DECLARE ©yFuelOrOther DEC1MAL(19,2) 

35 DECLARE ©yDelivered DEC1MAL(19,2) 

DECLARE ©yTransportAmount DECIMAL(19,2) 
DECLARE ©yGatheringAmount DECIMAL(1 9,2) 
DECLARE ©yAmount DECiMAL(19,2) 
DECLARE ©yDedicatedPurchasePKG INTEGER 

40 DECLARE ©yPrice DECIMAL(19,6) 

DECLARE ©yResolvedReceipt DEC1MAL(19,2) 
DECLARE ©ylncludelnWasp VARCHAR{10) 
DECLARE ©yResolvedDelivered DECIMAL(19,2) 
DECLARE ©yResolvediD INTEGER 

45 DECLARE ©yResolvedReceiptAmt DECIMAL(19,2) 

DECLARE ©yResolvedDeliveredAmt DECIMAL(19,2) 

DECLARE ©IDelMID INTEGER 
DECLARE ©IRecMID INTEGER 

50 DECLARE ©Receipt DECiMAL(1 9,2) 

DECLARE ©IFuelOrOther DECIMAL(19,2) 
DECLARE ©(Delivered DECIMAL(19 f 2) 
DECLARE ©ITransportAmount DECIMAL(19,2) 
DECLARE ©IGatheringAmount DECIMAL(19,2) 

55 DECLARE ©lAmount DECIMAL(19,2) 

DECLARE ©IDedicatedPurchasePKG INTEGER 
DECLARE ©IPrice DECIMAL(15,6) 
DECLARE ©IResolvedReceipt DECIMAL(19,2) 
DECLARE ©llnciudelnWasp VARCHAR(10) 

60 DECLARE ©IResolvedDelivered DEC!MAL(1 9,2) 

DECLARE ©IResolvedID INTEGER 
DECLARE ©IResolvedReceiptAmt DECIMAL(19,2) 
DECLARE ©IResolvedDeiiveredAmt DECiMAL(19,2) 

* This loop will iterate until no more 

* gas can be distributed to various 

* sales meters within the 

70 * WaspResolvedRouting table. 
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*/ 

SELECT ©zRound = ISNULL((SELECT TypeLimit FROM SEProcessingCodes WHERE ProcessingCodelD = @KProductlDx),0) 
SELECT ©zMessage = 'PSPriceWASPCalcResoiveSatesN, starting iterative process...' 
5 EXECUTE usp_Message ©zMessage 
SaiesMeterlterationLoop: 
BEGiN 

SELECT @zAnyUpdates='N' 

DECLARE WASPResolvedSalesCursor CURSOR LOCAL DYNAMIC FORWARD_ONLY FOR 
10 SELECT 

DelMID, 
RecMID, 
Receipt, 
FuelOrOther, 

1 5 Delivered, 

TransportAmount, 
GatheringAmount, 
Amount, 

DedicatedPurchasePKG, 
20 Pn'ce, 

ResolvedReceipt, 
includelnWasp, 
ResoivedDelivered, 
ResolvedID, 

25 Resolved ReceiptAmt, 

ResolvedDeliveredAmt 
FROM 

WASPResolvedRouting 

WHERE 

30 (GasMonth=@GasMonthx AND 

NomOrActual=@WhichPricex AND 

lnc!udelnWasp=@inciudelnWaspx AND 

ResolvedlndicatoroT AND 

ResolvedReceiptoReceipt AND 
35 ResolvedTypeo'P' AND 

AmountoO AND 

PriceoO AND 

Delivered<>0 AND 

EntityCiD=@EntityClDx AND 
40 KProductlD=@KProductlDx AND 

KServicelD=@KServicelDx) 

ORDER BY 

IncludelnWasp, 
DedicatedPurchasePKG, 
45 DelMID 

OPEN WASPResolvedSalesCursor 

FETCH NEXT FROM WASPResolvedSalesCursor INTO ©yDelMID, 
@yRecMiD,@yReceipt,@yFuelOrOther,@y^ 

50 KG, 

@yPrioe,@yResolvedReceipt^lndudelnWasp 1 @yResolvedDelivered I @yResolvedlD ) 

@yResolvedReceiptAmt,@yResolved Delivered Amt 

WHILE @@FETCH_STATUS = 0 
55 BEGIN 

r 

************************************** 

* Loop through each of the legs that 

* have the delivery meter the same as 
60 * the receipt meter for the given 

* month and class... 
************************************** 

*/ 

SELECT @zVolumeDispersed=0 
65 SELECT @zAmountDispersed=0 

SELECT@zLinkUpdate='N' 

DECLARE WASPResolvedLinkCursor CURSOR LOCAL DYNAMIC FORWARD_ONLY FOR 
SELECT 

DelMID, 

70 RecMID, 
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Receipt, 
FuelOrOther, 
Delivered, 
TransportAmount, 

5 Gathering Amount, 

Amount, 

DedicatedPurchasePKG, 
Price, 

ResolvedReceipt, 

1 o IncludelnWasp, 

ResolvedDelivered, 
ResoivedlD, 
ResolvedReceiptAmt, 
ResolvedDeliveredAmt 

15 FROM 



WHERE 



WASPResolvedRouting 



(GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex AND 
20 lncludelnWasp=@y!ncludelnWasp AND 

DedicatedPurchasePKG=@yDedicatedPurchasePKG AND 
DelMlD=@yRecMID AND 
ResolvedlD<>@yResolvedlD AND 
EntityC!D=@EntityCIDx AND 

25 KProductiD=@KProductlDx AND 

KServicelD=@KServicelDx AND 
ResolvedTypeo'S 1 AND 
ResoIvedDelivered<DeIivered) 

OPEN WASPResoivedLinkCursor 
30 FETCH NEXT FROM WASPResoivedLinkCursor INTO ©IDelMID, 

@|RecMiD,@IReceipt,@IFuelOrOther,©^ 

@Price ) @IResolvedReoeipt,@lndudelnWasp,@IResolvedDelivered I @iResolvedlD, 
35 @|ResolvedReceiptAmt,@IResolvedDeliveredAmt 

WHILE @@FETCH_STATUS = 0 
BEGIN 
/* 

***************^^******************* 

40 * Determine the total volume of gas 

* where this gas came from (based on 

* delivery meterid being equal to 

* the receipt meter id and all WASP 

* pool and dedicated purchase package 

45 * information being identical). 

* 

* The zUseVoIume field contains the 

* amount of volume from the delivery 

* meter to apply backward. 



50 



* The zUseAmount field contains the 

* dollar amount from the delivery meter 

* that should be applied backward. 



55 * The zPercentToApply field contains the 

* volume weighted percentage to use. 



*/ 

SELECT @zResolvedReceipt=@y Resolved Receipt 
50 SELECT @zResolvedReceiptAmt=@yResolvedReceiptAmt 

SELECT @zPercentReceipt=1 

/* Determine total receipt volume available to apply*/ 
/* This is based on percentage of delivered that may have*/ 
55 /* already been applied. In addition, determine the*/ 

/* amount that is available...*/ 

IF (@yDelivered<>0) AND (@yResolvedDelivered<>0) AND 

(@yDelivered>@yResolvedDelivered) 
70 BEGIN 
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SELECT 

@zPercentReceipt=(@yResoivedDelivered/@yDelivered) ^ 

5 I* Incorporated this logic to ensure that no more than */ 

/* the original receipt can be sent back to previous */ 
/* meter... 12/05/2000*/ 

SELECT @zReceiptLeft=ROUND((@yReceipt*@zPercentReceipt),@zRound) 
1 o SELECT @zTempLeft=(§yReceipt - ©yResolvedReceipt) 

SELECT @zTempLeft=Round((@zTempLeft* 

@zPercentReceipt),@zRound); 

IF ©zTempLeft < ©zReceipleft 
BEGIN 

* 5 SELECT @zReceipleft=@zTempLeft 

END 

SELECT @zReceiptAmtLeft=ROUND((@yAmount-@yResolvedReceiptAmt),2) 



20 RecMiD<>DelMID 



25 



40 



/* Determine percentage of the volumes and amounts to apply... and 



SELECT ©zPercentToAppiy^l 

SELECT @zSumDeiivered=lSNULL{(SELECTSUM(Delivered) FROM 



WASPResolvedRouting .i,,™-^ * ■ iU m ^ 

WHERE GasMonth=@GasMonthx 

AND NomOrActual=@WhichPricex AND inciudelnWasp=@yincludelnWasp AND 

DedicatedPurchasePKG=@yDedicatedPurchasePKG AND DelMid=@yRecMID AND ResoivedTypeo'S' AND 

EntityClD=@EntityCIDx AND 

30 KProductlD=@KProductlDx AND KServicelD=@KServiceiDx),0) 

IF (@zSumDelivered<>0) AND (@IDe!ivered<>0) 
BEGIN 
SELECT 

35 @zPercentToApp!y=ROUND((@iDelivered/@zSumDelivered) t 6) 

END 

ELSE 

BEGIN 

SELECT @zPercentToApply=0 
END 



/* Calculate volume to apply backwards for this particular leg...*/ 



SELECT @zUseVoiume=ROUND((@zReceiptLeft*@zPercentToApply),@zRound) 
45 SELECT @zDeliveredLeft=@!Delivered-@IResolvedDelivered 

IF @zUseVolume>@zDeliveredLeft 
BEGIN 

SELECT @zUseVolume=@zDeliveredLeft 
END 

50 SELECT @zResolvedReceipt=@zResolvedReceipt-+@zUseVolume 

SELECT @zVolumeDispersed=@zVolumeDispersed+@zUseVolume 

/* Calculate dollar amount to apply backwards for this particular leg...*/ 

55 SELECT @zUseAmount=ROUND((@zReceiptAmleft*@zPercentToApply),2) 

SELECT @zResolvedReceiptAmt=@zResolvedReceiptAmt+@zUseAmount 
SELECT @zAmountDispersed=@zAmountDispersed-^zUseAmount 
/* 

50 * Now update the meter feeding 

* this delivery point with the 

* information just posted... 
* 

* The amount is calculated based 
55 * on the previous value plus 

* the amount being posted from 

* the delivery meter. The 

* price is derived based on 

* receipt volume into the amount. 

70 
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10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



* Since we are not forcing the pipes 

* to balance then calculate the price 

* based solely on the volume resolved 

* on delivery. 

*/ 

IF (@zUseVolume>0) AND (@zUseAmount<>0) 
BEGIN 



@zResolvedDelivered=@IResoivedDelivered+@zUseVolume 

@zResolvedDeliveredAmt=@lResolvedDeliveredAmt+@zUseAmount 

@zNewAmount=ROUND((@IAmount+@zUseAmount) ! 2) 

@zNewPrice=ROUND((@zNewAmount/@IReceipt) ) 4) 
@zNewPrice=0 



Resolved lndicator='N' ( 
ResolvedDelivered=@zResolvedDelivered, 
ResolvedDeliveredAmt=@zResolvedDeliveredAmt ( 
Amou nt=@zN ewAmou nt, 

ResolvedlD=@lResolvedlD 



SELECT 
SELECT 
SELECT 

IF (@zResoIvedDeliveredAmt<>0) AND (@IReceipt<>0) 
BEGIN 

SELECT 



ELSE 



UPDATE 



END 
BEGIN 

END 



SELECT 



WASPResolvedRouting 
SET 



WHERE 



Price=@zNewPrice 



END 



SELECT @zAnyUpdates=Y 
SELECT @zLinkUpdate=T 



FETCH NEXT FROM WASP Resolved Lin kCursor INTO ©IDelMID, 

@|RecMID,@IReceipt,@IFuelOrOta 

©IPrice^lResolvedReceiptgllncludelnWasp^lResolvedDelivered^lResolvedlD, 

@lResolvedReceiptAmt,@lResolvedDeliveredAmt 

END 

CLOSE WASPResolvedLinkCursor 
DEALLOCATE WASPResolvedLinkCursor 
i* 



* After looping through all of the 

* meters that can possible associate 

* with this sale, go ahead and update 

* the original sales meter information 

* to reflect the total volume 

* passed on to subsequent meters. 
************** ******************* 

7 

IF @zLinkUpdate=T 
BEGIN 



UPDATE 



WASPResolvedRouting 
SET 

ResolvedReceipt=ResolvedReceipt4@zVolumeDispersed, 



70 



ResolvedReceiptAmt=ResolvedReceiptAmt-^zAmountDispersed, 
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Resolved Indicator^ Y' 

WHERE 

Resolved I D=@yResol ved I D 

END 

5 FETCH NEXT FROM WASPResolvedSalesCursor INTO ©yDelMID, 

@yRecMID,@yReceipt,@yFuelOrOther,^ 

KG, 

10 ©yPrice^yResolvedReceiptgyincIudelnWasp.QyResolvedDelivered^yResolvedlD, 

@yResolvedReceiptAmt,@yResolvedDeliveredAmt 
END 

CLOSE WASPResolvedSalesCursor 
1 5 DEALLOCATE WASPResolvedSalesCursor 

/* 

* If no more volume was chased backward 

* then get out of the iterative loop. 
20 * At this point alt volumes have been 

* sent back to all meters and weighted 

* costs should be available at each. 
************** ****** ******************* 

7 

25 IF ©zAnyUpdateso'N' 

BEGIN 

GOTO SalesMeterlterationLoop 

END 

END 

30 END 



35 



40 



45 



50 



55 



60 



65 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSl.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceWASPCaicSalesN( 



©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
©EntityCIDx VARCHAR(1 2), 
©KProductlDx INTEGER, 
©KServicelDx INTEGER 



AS 

BEGIN 
/* 

********************************i 
Name: usp.PSPriceWASPCalcSalesN 

Description: This process will build all of the meters within the 
WASPResolvedRouting table for ail of the deals within the gas month. Only 
those meters that had actual transport volume will be moved. A 
different routine will iterate through the volumes posted here in order 
to calculate all of the prices. 



70 



Inputs: 

GasMonthx - Gas Month 
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WhichPricex - (^Nominations, 1=Actuals 
EntityCIDx - Entity being calculated (owning company) 
KProductlDx - Product type being calculated. 
KServicelDx - Service type being calculated. 

5 

History: 

05/02/2000 JAMIE Original Creation. 

1 0 05/24/2000 JAMIE Modified to add the Entity, product and service types to be 

parameters to this procedure. This will ensure that gas, oil, etc amongst the 
various types of companies (entities) being serviced do not get intermixed. 

07/20/2000 JAMIE Modified in order to initialize new resolved amount fields for 
1 5 all records that get added to the WASPResolvedRouting table. 

08/18/2000 JAMIE Modified to go ahead and put the actual purchase point 
items on the table to include them in the calculations. At this point the 
WASPResolvedRouting table will contain ALL entries (see Type' field on the 
20 database). Purchase points thru Sales points. 

10/03/2000 JAMIE Modified to incorporate the 'Other Cost* amount totals 
into the Resolved table total calculation. 

25 01/09/2000 JAMIE For consistency. Modified the rounding (on the prices 

to two decimal places (for all months previous to December 2000). 



60 



7 

30 r 

* Declare all variables and cursors 

* that are needed by this process. 

35 */ 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zlnciudelnWasp VARCHAR(10) 
DECLARE ©zVolume DEC1MAL(19,2) 
DECLARE @zType VARCHAR(1) 

40 DECLARE ©zPrice DECIMAL(19,6) 

DECLARE ©zAmount DECIMAL{19,2) 
DECLARE ©zOtherCostAmount DECIMAL(19,2) 
DECLARE ©zDedicatedPurchasePKG INTEGER 
DECLARE ©zGatheringAmount DECIMAL(19,2) 

45 DECLARE ©zTransportationAmount DECIMAL(15,2) 

DECLARE ©zAmountWithCosts DEC!MAL(19,2) 
DECLARE ©zLastDay DATETIME 
DECLARE ©zPrevSalePKG INTEGER 
DECLARE ©zPrevSaleMID INTEGER 

50 

DECLARE ©yPurchasePKG INTEGER 
DECLARE ©yRecMID INTEGER 
DECLARE ©yDelMID INTEGER 
DECLARE ©ySalesPKG INTEGER 
55 DECLARE ©yReceipt DECIMAL(19,2) 

DECLARE ©yLDIDPrev INTEGER 
DECLARE ©yGasDay DATETIME 
DECLARE ©yPurchasePointTID INTEGER 
DECLARE ©yStep INTEGER 



DECLARE ©xPriceOrRateNom DECIMAL(19,6) 
DECLARE ©xPriceOrRateAct DECIMAL(19,6) 



DECLARE ©qPurchasePKG INTEGER 

65 DECLARE ©qLID INTEGER 

DECLARE ©qRecMID INTEGER 
DECLARE ©qDelMID INTEGER 
DECLARE ©qReceipt DECIMAL(19,2) 
DECLARE ©qDelivered DEC1MAL(19,2) 

70 DECLARE ©qFuelOrOther DECIMAL(19,2) 
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DECLARE ©qTransport DECIMAL(19,2) 
DECLARE ©qGathering DEC!MAL(19,2) 



SELECT ©zMessage = 'PSPriceWASPCalcSalesN Has Started...' 

EXECUTE usp_Message ©zMessage 

/* 

10 * Delete any pre-existing resolved entries 

* that may exist in the database... These 

* records are the ones related to the 

* entity, product and service tyeps. 

15 7 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, Deleting existing entries off WASPResolvedRouting...' 

EXECUTE usp_Message ©zMessage 

DELETE 

FROM 

20 WASPResolvedRouting 
WHERE 

GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex AND 
EntityCID=@EntityClDx AND 
25 KProductlD=@KProductlDx AND 

KServicelD=@KServicelDx 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, Finished deleting existing entries off WASPResolvedRouting.. 
EXECUTE usp_Message ©zMessage 

r 



30 



* Initially loop through the sales links 

* found on the iegdetail table (high level 

* loop)... Only looping through those 

* items that are associated with this 
35 * entity and product/service type. 



7 

SELECT @zPrevSalePKG=0 
SELECT @zPrevSaleMID=0 
40 EXECUTE usp JLastDay @GasMonthx,@zLastDay OUTPUT 

DECLARE LegDetailSaleCursor CURSOR LOCAL STATIC F0RWARD_0NLY FOR 
SELECT 

PurchasePKG, 
RecMID, 

45 DelMID, 

SalesPKG, 
Receipt, 
LDlDPrev, 
GasDay, 

50 PurchasePointTID, 

Step 
FROM 

LegDetail 

WHERE 

55 LegDetail.PurchasePoiniTID IN (SELECT DISTINCT TID FROM Gaslnv, Package, K WHERE 

GasInv.PKG=Package.PKG AND k.kid = Package.KID AND GasInv.GasMonth=@GasMonthx AND Gaslnv.DBCR=0 AND Gaslnv.PriceType=1 
and Package.KProductlD = ©KProductlDx and Package.KServicelD = ©KServicelDx AND K.EntttyCID = ©EntityCIDx) AND 

LegDetail.GasDay>=@GasMonthx AND 

LegDetail.GasDay<=@zLastDay AND 
60 LegDetail.GasMonth=@GasMonthx AND 

Leg Detail. NomOrActuals=@WhichPricex AND 

LegDetail,UD=Q AND 

LegDetail.PurchasePKG>0 AND 

LegDetail.SalesPKG>0 

65 ORDER BY 

LegDetaiLSalesPKG, 

LegDetail.RecMID, 

Leg Detail. PurchasePointTID, 

LegDetail.GasDay, 

70 LegDetail.PurchasePKG 
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SELECT ©zMessage = 'PSPriceWASPCaicSalesN, opening main sales cursor (LegDetailSaleCursor)../ 
EXECUTE uspj/lessage ©zMessage 
OPEN LegDetailSaleCursor 

SELECT ©zMessage = 'PSPriceWASPCaicSalesN, finished opening main sales cursor (LegDetailSaleCursor)...' 
5 EXECUTE usp_Message ©zMessage 

FETCH NEXT FROM LegDetailSaleCursor INTO ©yPurchasePKG, 

©yRecMID^yDelMID.lgySalesPKG^yReceipt^yLDIDPrev^yGasDay.igyPurchasePointTiD^yStep 

WHILE @@FETCH_STATUS = 0 
BEGIN 

10 r 

****************************************** 

* Determine the classification of the 

* purchase deaf attached to this sales 

* volume right here.. 



15 



****************************************** 



*/ 

EXECUTE uspJGetWaspindicator@yPurchasePKG J @zlnciudelnWasp OUTPUT 
IF @zlncludelnWasp- Common' 
BEGIN 

20 SELECT @zDedicatedPurchasePKG=0 

END 

ELSE 

BEGIN 

SELECT @zDedicatedPurchasePKG=@yPurchasePKG 

25 END 

/* 

****************************************** 

* If sales package has changed OR 

* the meter within a sales package 
30 * has changed then (amongst other 

* things) sum up any/all other costs 

* for the meter (this ensures that only 

* one instance of other cost entries 

* are totaled for a given sales deal 
35 * at a given meter). 

*/ 

SELECT @zOtherCostAmount=0 

IF (@ySaiesPKG<>@zPrevSalePKG) OR (@yRecMID<>@zPrevSaleMID) 
40 BEGIN 

SELECT (3>zPrevSalePKG=@ySalesPKG 
SELECT @zPrevSaleMID=@yRecMID 
IF @WhichPricex=0 
BEGIN 

45 SELECT @zOtherCostAmount=lSNULL((SELECT 

SUM(Engine.Amount) FROM Gaslnv.Engine WHERE Gaslnv.PKG=@ySalesPKG 

AND Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=1 AND Engine.TiD=Gasinv.TID AND Gaslnv.Gaslnv_MID=@yRecMID AND Engine.STID<>9),0) 

END 

50 IF @WhichPricex=1 

BEGIN 

SELECT @zOtherCostAmount=ISNULL((SELECT 
SUM(Engine.AmountAct) FROM Gaslnv.Engine WHERE Gasinv.PKG=@ySalesPKG 

AND Gaslnv.GasMonth=@GasMonthx AND 
55 Gaslnv.PriceType^l AND Engine.TlD=Gaslnv.TlD AND Gaslnv.Gaslnv_MID=@yRecMID AND Engine.STID<>9),0) 

END 

END 

/* 

****************************************** 

60 * Calculate the price and amount for the 

* sales item here (utilizing the Engine 

* calculation). The beginning volume is 

* the amount pulled off the sales association 

* on the database... Break from this 

65 * loop once the first price record has been 

* obtained (for this day)... 
****************************************** 

*/ 

SELECT @zPrice=0 
70 SELECT @zAmount=0 
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SELECT @zVoIume=0 

DECLARE EngineCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

Engine. PriceOrRateNom, 
5 Engine.PriceOrRateAct 

FROM 

Gaslnv, 
Engine 

WHERE 

1 0 GasInv.PKG=@ySalesPKG AND 

Gaslnv.PriceType=1 AND 
Engine.TID=Gaslnv.TID AND 
Gasinv.Gaslnv_MID=@yRecMlD AND 
Engine.Effective<=@yGasDay AND 

1 5 Engine.STlD=9 

ORDER BY 

Engine.Effective DESC 

OPEN EngineCursor 

FETCH NEXT FROM EngineCursor INTO @xPriceOrRateNom p @xPriceOrRateAct 
20 IF@@FETCH_STATUS = 0 

BEGIN 

IF @zPrice=0 

BEGIN 

IF @WhichPricex=0 

25 BEGIN 

IF ©GasMonthx < '12/01/2000' 
BEGIN 
SELECT 

@zPrice=ROUND{@xPriceOrRateNom ) 2) 
30 END 

ELSE 

BEGIN 
SELECT 

®zPiice=ROUND(@xPriceOrRateNom,4) 

35 END 

END 

ELSE 

BEGIN 

IF @GasMonthx< '12/01/2000' 

40 BEGIN 



@zPrice=ROU ND(@xPriceOrRateAct,2) 



SELECT 

END 
ELSE 

45 BEGIN 

SELECT 

@zPrice=ROUND(@xPriceOrRateAct ( 4) ^ 

END 

50 SELECT @zVolume=@yReceipt 

SELECT @zAmount=(@zVolume*@zPrice) 
END 

END 

CLOSE EngineCursor 
55 DEALLOCATE EngineCursor 

/* 

* Sum the other cost entry on the 

* amount brought back for the 
60 * production volume amount The 

* other cost entry will only have a 

* non zero value the first time a 

* sales meter is encountered. Make 

* sure to reset the price entry. 

*/ 

IF @zOtherCostAmount<>0 
BEGIN 

SELECT @zAmount=@zAmount+@zOtherCostAmount 
70 IF (@zAmount<>0) AND (@zVolume<>0) 
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10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



BEGIN 
END 



SELECT @zPrice=ROUND((@zAmount/@zVolume),4) 



END 



* Post a sales entry into the resolved 
•table here.. (LID=0)... This will be 

* the starting point once the routing 

* interative process begins... 

7 

IF ISNULL((SELECT count(*) FROM WASPResolvedRouting WHERE GasMonth=@GasMonthx AND 
RecMlD=@yRecMID AND DeIMID=@yDelMID AND 

NomOrActual=@WhichPricex AND includelnWasp=@z!ncludelnWASP AND 

DedicatedPurchasePKG=@zDedicatedPurchasePKG AND 

ResolvedType='S' AND LID=0 AND EntityCID=@EntityCIDx AND 
KProductlD=@KProductlDx AND KServicelD=@KService!Dx),0) < 1 
BEGIN 

INSERT 

INTO 

WASPResolvedRouting 

(GasMonth,RecMID,DeiMID,NomOrActual,Receipt^^ 

IncludelnWasp.DedicatedPurchasePKG.Price^esolvedReceiptResolvedlndicatonResolvedType.LID^ResolvedDelivered, 

EntityCID.KProductlD^KServicelD.ResolvedReceiptAmtResolvedDeiiveredAmt) 

VALUES 

(@GasMontJix,@yRecMID,@yDelMlD,@Wfr 

©zlncludelnWASP^zDedicatedPurchasePKG^zPrice.O/N'/S'.O.O, 
@EntityCIDx l @KProductlDx l @KServicelDx,0 ) 0) 

END 



ELSE 



BEGIN 



IF (@zAmount<>0) AND (@zVolume<>0) 
BEGIN 

UPDATE 

WASPResolvedRouting 



Price=ROUND(((Amount4@zAmount)/(Receipt+@zVolume)),4) 



SET 



WHERE 



DedicatedPurchasePKG=@zDedicatedPurchasePKG AND 



Receipt=(Receipt-+@zVolume) J 

Delivered=(Delivered+@zVolume), 

Amount=(Arnount+@zArnount), 



GasMonth=@GasMonthx AND 
RecMID=@yRecMID AND 
DelMID=@yDelMID AND 
NomOrActual=@WhichPricex AND 
lncludelnWasp=@zlncludelnWASP AND 



ResolvedType- S' AND 
LlD=0 AND 

EntityCID=@EntityCIDxAND 
KProductlD=@KProductlDx AND 
KServicelD=@KServiceiDx 



END 



END 



FETCH NEXT FROM LegDetailSaieCursor INTO ©yPurchasePKG, 

@yRecMID p @yDelMID,@ySalesPKG ) @yReceipt,@yLDIDPrev,@yGasDay ! @yPurchasePointTlD ) @yStep 
END 

CLOSE LegDetailSaieCursor 
DEALLOCATE LegDetailSaieCursor 
/* 

* Once all of the sales meters have been 



-106- 



* inserted then it is time to insert the 

* transportation routing leg entries, THese 

* are summarized entries. No day-to-day 

* cursor processing is required only the 
5 *sum of the unique days. 

* Transport legs (type T) and purchase 

* points (type 'F) are posted here.. 

***************^************************* 

10 */ 

DECLARE LegDetailChaseCursor CURSOR LOCAL STATIC F0RWARDJ3NLY FOR 
SELECT 

Leg Detail. PurchasePKG, 

LegDetaii.LID, 
15 LegDetail.RecMID, 

LegDetail.DeiMID, 

SUM(LegDetail.Receipt), 

SUM(LegDetail.Deiivered), 

SUM(LegDetail.FuelOrOther), 
20 ROUND(SUM(LegDetail.Receipt*LegDetailTransportafonRate),2), 

ROUND(SUM(LegDetail.ReceipaegDetail.GatheringRate),2) 

FROM 

Leg Detail 

WHERE 

25 LegDetail.PurchasePointTID IN (SELECT DISTINCT TID FROM Gaslnv, Package, K WHERE 

Gaslnv.PKG=Package.PKG AND k.kid = Package.KID AND Gaslnv.GasMonth=@GasMonthx AND Gaslnv.DBCR=0 AND Gaslnv.PriceType=1 
and Package.KProductID = ©KProductlDx and Package.KServicelD = ©KServicelDx AND K.EntityCID = ©EntityCIDx) AND 
LegDetail.GasMonth=@GasMonthxAND 
Leg Detail. GasDay>=@GasMonthx AND 
30 LegDetail.GasDay<=@zLastDay AND 

LegDetaiLNomOrActuaIs=@WhichPricexAND 
LegDetail.SalesPKG=0 

GROUP BY 

LegDetail.PurchasePKG, 
35 LegDetaii.LID, 

LegDetail.RecMID, 
LegDetail.DeiMID 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, running query to create transportation legs...' 
EXECUTE uspjvlessage ©zMessage 
40 SELECT @zPrevSa!ePKG=0 

SELECT @zPrevSaleMID=0 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, opening cursor (LegDetailChaseCursor)...' 
EXECUTE uspjvlessage ©zMessage 
OPEN LegDetailChaseCursor 
45 SELECT ©zMessage = 'PSPriceWASPCalcSalesN, finished opening cursor (LegDetailChaseCursor)...' 

EXECUTE usp_Message @zMessage 

FETCH NEXT FROM LegDetailChaseCursor INTO ©qPurchasePKG^qLID.tgqRecMlD^qDelMID^qReceiptQqDelivered^qFuelOrOther, 

@qTransport,@qGathering 

WHILE @@FETCH_STATUS = 0 
50 BEGIN 

r 

*HH^ ****************** ******************** 

* Determine the classification of the 

* purchase deal attached to this transort 
55 * volume right here... 

*/ 

IF (@qPurchasePKG<>@zPrevSalePKG) OR (@QLID<>@zPrevSaieMID) 
BEGIN 

60 SELECT @zPrevSafePKG=@qPurchasePKG 

SELECT @zPrevSaleMiD=@qLID 

END 

EXECUTE uspJGetWasplndicator @qPurchasePKG,@z!ncludelnWasp OUTPUT 
IF @z!nc!udelnWasp='Common' 
65 BEGIN 

SELECT @zDedicatedPurchasePKG=0 

END 

ELSE 

BEGIN 

70 SELECT @zDedicatedPurchasePKG=@qPurchasePKG 
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END 

IF @qLID=0 

BEGIN 

SELECT @zType- F 

5 END 
ELSE 

BEGIN 

SELECT @zType=T 

END 

* If the leg for this is in the WASP 

* temporary routing table then 

* just update the record with the 
15 * totals. Otherwise, insert it and 

* go to the next leg.,. 

7 

SELECT @zAmountWithCosts=((@qGathering-K§qTransport)*-1 ) 
20 IF ISNULL((SELECT count(*) FROM WASPResolvedRouting 

WHERE GasMonth=@GasMonthx AND RecMlD=@qRecMID AND DelMlD=@qDelMID AND 
NomOrActual=@WhichPricex AND lncludelnWasp=@zIndudelnWASP AND 
DedicatedPurchasePKG=@zDedicatedPurchasePKG AND ResolvedType=@zType 

AND LID=@qLID AND 

25 EntityC I D=@E ntityC iDx AND KProduct!D=@KProductlDx AND 

KServicelD=@KService!Dx),0)<1 

BEGIN 

INSERT 

INTO 

30 WASPResolvedRouting 
(GasMonth^ecMID.DelMID^omOrActuai.ReceiptFuelOrOther.Delivered, 
TransportAmount J GatheringArnount ) Arnount l lncludelnWasp ) DedicatedPurchasePKG J 
Price.ResolvedReceiptResolvedlndicator.ResolvedType.LID.ResolvedDelivered, 



35 



40 



EntityC ID, KProductlD,KServicelD,ResolvedReceiptAmt,Resolved Delivered Amt) 

VALUES 

(©GasMonthx^qRecMID.QqDelMID^WhichPricex^qReceiptgqFuelOrOther^qDelivered, 



©qTransport^qGathering^zAmountWithCosts^zIndudelnWASP^zDedicatedPurchasePKG, 

0,0, , N , i @zType f @qLID,0, 

45 @EntityCIDx l @KProductlDx f @KServiceIDx J O I 0) 

END 

ELSE 

BEGIN 

UPDATE 

50 WASPResolvedRouting 

SET 

Receipt=(Receipt+@qReceipt), 
Delivered=(Delivered-H§)qDelivered), 
FuelOrOthep(FuelOrOther+@qFueIOrOther), 
55 TransportAmount=(TransportAmount+@qTransport), 

GatheringAmount=(GatheringAmount-^qGathering), 
Amount=(Amount^@zAmountWithCosts) 

WHERE 

GasMonth=@GasMonthx AND 
60 RecMID=@qRecMlD AND 

DelMlD=@qDelMID AND 
NomOrActual=@WhichPricex AND 
lncludelnWasp=@zlncludeInWASPAND 
DedicatedPurchasePKG=@zDedicatedPurchasePKG AND 
65 ResolvedType=@zType AND 

LlD=@qLID AND 
EntityCID=@EntityCIDx AND 
KProductlD=@KProductlDx AND 
KServicelD=@KServicelDx 

70 END 
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FETCH NEXT FROM LegDetailChaseCursor INTO 
©qPurchasePKG.gqLID^qRecMID^qDelMlD^qReceiptgqDelivered^qFuelOrOther, 

@qTransport,@qGathering 

END 

5 CLOSE LegDetailChaseCursor 

DEALLOCATE LegDetailChaseCursor 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN Has Finished... 1 

EXECUTE usp_Message ©zMessage 

END 

10 



15 



20 



GO 

25 SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 

GO 

SET QUOTEDJDENTIFIER ON SET ANSLNULLS ON 
GO 

30 

CREATE PROCEDURE usp_PSPriceWASPCIearMonth( 



AS 

35 BEGIN 

SET NOCOUNT ON 
/* 

Name: usp„PSPriceWaspClearMonth 

40 

Description: This routine wiii represents the common 'clean up' routine that 
will purge anything on the database that can be purged. 

The tables cleared include the following: 

45 

GaslnvD (zero volume days for EstAct, Norn, PipeiineActuals) 
LegDetaii (zero volume routing entries) 

Inputs: 

50 

GasMonthx (gas month to calculate), 
History: 

55 06/30/1999 JAMIE Original creation 

08/04/1 999 JAMIE Modifications to not delete the entries in the 
WASPPurchaseMeterTotals table. This is becuase this table contains 
the information necessary to calculate the margins on a deal. Ail other 
60 supporting table entries will be deleted. 

10/12/1999 JAMIE Modifications to procedure to go out and delete any 
daily gas inventory entries that contain no data. Again, since this procedure 
is only executed when the gas month gets marked as completed there 
65 should be no repurcussions except fewer database records to administer. 

Anything of historical relevance will be retained (ie.. if any volume whatsoever). 

03/30/2000 JAMIE Modifications made in the procedure to remove the zero entry 
routing records from the database (prior deletion of the daily gas inventory 
70 items should have deleted all of these (based on triggers). However, 



©GasMonthx DATETIME 
) 
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this is for any/all other residuals. 



10 



15 



20 



60 



08/25/2000 JAMIE Modified in order to remove obsolete cleanup tables 
such as old routing tables/etc. 

7 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zLastDay DATETIME 

DECLARE ©wTID INTEGER 
DECLARE ©wGasDay DATETIME 

DECLARE @qLDID INTEGER 

SELECT ©zMessage = ***** STARTED, PSPriceWASPCIearMonth' 

EXECUTE usp_Message ©zMessage 

EXECUTE uspJLastDay @GasMonthx,@zLastDay OUTPUT 

y* 

****************************************** 

* Remove daily inventory items that 

* are now zero... 



7 

25 DECLARE GasinvDCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 

SELECT 

Gaslnv.TID, 

GasinvD.GasDay 

FROM 

30 Gaslnv, 

GaslnvD 

WHERE 

GaslnvD.TID = Gaslnv.TID AND 
Gaslnv.GasMonth=@GasMonthx AND 
35 GaslnvD. EstAct = 0 AND 

GaslnvD.Nom = 0 AND 
GaslnvD. PipelineActuals = 0 

ORDER BY 

Gaslnv.TID, 

40 GasinvD.GasDay 

SELECT ©zMessage = ' PSPriceWASPCIearMonth, Started removing ZEROd out Inventory Items...' 
EXECUTE usp_Message ©zMessage 
OPEN GasinvDCursor 

FETCH NEXT FROM GasinvDCursor INTO ©wTID, ©wGasDay 
45 WHILE @@FETCH_STATUS = 0 

BEGIN 

BEGIN TRANSACTION 

DELETE FROM GaslnvD WHERE TlD=@wTID AND GasDay=@wGasDay 
COMMIT WORK 

50 FETCH NEXT FROM GasinvDCursor INTO ©wTID, ©wGasDay 

END 

CLOSE GasinvDCursor 
DEALLOCATE GasinvDCursor 

SELECT ©zMessage = ' PSPriceWASPCIearMonth, Finished removing ZEROd out inventory Items.. 
55 EXECUTE usp_Message ©zMessage 

/* 



* Remove any routing items that had 

* no entries within them. 

7 

DECLARE LegDetailCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 



LDID 

65 FROM 



LegDetail 



WHERE 

GasMonth=@GasMonthx AND 
Receipts AND 

70 Delivered=OAND 
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Ba!ance=0 AND 
FuelOrOthen=0 

ORDER BY 

PurchasePointTID 

5 SELECT ©zMessage = ' PSPriceWASPCIearMonth, Started removing ZEROd out Routing (LegDetail) Items...' 

EXECUTE uspjvlessage ©zMessage 
OPEN LegDetailCursor 

FETCH NEXT FROM LegDetailCursor INTO ©qLDID 
WHILE ©@FETCH_STATUS = 0 
10 BEGIN 

BEGIN TRANSACTION 

DELETE FROM LegDetail WHERE LDID=@qLDID 
COMMIT WORK 

FETCH NEXT FROM LegDetailCursor INTO ©qLDID 

15 END 

CLOSE LegDetailCursor 
DEALLOCATE LegDetailCursor 

SELECT ©zMessage = ' PSPriceWASPClearMonth, Started removing ZEROd out Routing (LegDetail) Items.,.' 
EXECUTE uspjvlessage ©zMessage 
20 SELECT ©zMessage = FINISHED, PSPriceWASPCIearMonth' 

EXECUTE usp_Message ©zMessage 
END 



25 

GO 

SET QUOTEDJDENT1FIER OFF SETANSLNULLS ON 
GO 

30 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceWASPDivieOutProceedsN( 
35 ©GasMonthx DATETIME, 

©WhichPricex INTEGER, 
©EntityCIDx VARCHAR(12) 
) 

AS 

40 BEGIN 

Name: usp_PSPriceWASPDivieOutProceeds 

45 Description: 

This procedure will get executed during the WASP calculation in order 
to credit the financial proceeds (gain or loss) from one deal to another. 

50 These proceed designations are setup on the package table 
(FinancialPKG and FinancialMID field contains either a deal id 
or a common wasp meter pool point that is to receive the proceeds). 
These fields are mutually exclusive on the deal table. 

55 The default for all deals is the deal itself (for owning the proceeds). Only 

if the FinancialPKG or FinancialMID field has been entered will it be 
distributed elsewhere. The distribution amount (if any) will be posted 
on the from deal record (either in the FinancialNomAmount or 
FinancialActAmount field, dependant on which price is calculating). 

60 

This procedure works for 3rd party deals only (deal classification rule 
is equal to 'None'). The reason for this is because these are the only 
types of deals where we know the actual margin ('Common' (Wasp) 
and sanctioned sales (Dedicated) are netback calculated deals. 

65 

For all FinancialPKG/MID entries this procedure will: 

1. Calculate the margin (purchase price and purchase meter price). 

2. Reduce the purchase meter amounts by the amount calculated. 

70 3. Post the dollar amount to the proceed purchase meter(s) based on their respective 
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volume weightings to the deal. 
Inputs: 

5 GasMonthx - Gas Month 

WhichPricex - 0=Nominations p 1=Actuais 
EntityCIDx - owning company/entity 

History: 

10 

07/27/1999 JAMIE Original Creation. 

10/13/1999 JAMIE Modified to cast the distribution amounts to decimal(18,4). 
This is because of bug receiving correct amount to distrubute when dividing 
15 two integers. 

03/30/2000 JAMIE Modified the program to not use the 'PackageLinks' 
table but to use the FinanciaiPKG field stored on the deal table. This 
was done as part of the integration with linking and the new route 
20 process. 

05/24/2000 JAMIE Modified to include the owning company/entity. 

07/28/2000 JAMIE Modified in order to post the updates of what is 
25 being distributed back to the Package table (for the 'from' deal) and 

then post the amounts to the WASP Purchase Meter table (for deals) 
or WASP Legs for meters. This change was done in order to 
facilitate the reordering of the calculations. 

30 08/07/2000 JAMIE Modified so that even if diving to a specific deal IF 

that deal is a wasp deal then all deals that share the same original 
purchase point meters as the deal being divied to (in the 'Common' pool) 
will share in the divie. 

3 5 08/1 8/2000 JAMIE Modified so that if diving to a specific deal then the 

amount will go to the WASPResolvedRouting table versus the obsolete 
WASPPurchaseMeterTable. 




* Declare all variables and cursors 

* that are needed by this process. 

7 

DECLARE 

DECLARE 

DECLARE 
50 DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 
55 DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 
60 DECLARE 

DECLARE 
DECLARE 
DECLARE 
65 DECLARE 
DECLARE 

DECLARE 
DECLARE 
70 DECLARE 



@zMessageVARCHAR(254) 
©zLastDay DATETIME 
©zPurchasePrice DECIMAL(19,6) 
©zlncludelnWasp VARCHAR(10) 
©zTotalVolume INTEGER 
@zGrandTotalDistributedDECIMAL(19 ( 2) 
©zTempVolPercent DECIMAL(19,4) 
©zAmountToDistribute DECIMAL(19,2) 
©zMarginPrice DECIMAL(18,4) 
©zMarginAmt DECIMALS 9,2) 
©zFoundDedicated VARCHAR(1) 
©zSumofFBOPKGCreditMeters INTEGER 
©zAmountToCredit DECIMAL(19,2) 
©zSumofFBOPKGMeters INTEGER 

@yPKG INTEGER 
©yFinancialPKG INTEGER 
©yKProductiD INTEGER 
©yKServicelD INTEGER 
©yFinancialMID INTEGER 

©yWASPReceipt DECIMAL(19,2) 
©yWASPAmount DECIMAL(19,2) 
©yWASPPrice DECIMAL(19,6) 
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DECLARE ©yWASPResolvedID INTEGER 



DECLARE ©yWASPCreditReceipt DECIMAL(19,2) 
DECLARE ©yWASPCreditAmount DECIMAL(19,2) 
5 DECLARE ©yWASPCreditPrice DEClMAL(19,2) 

DECLARE ©yWASPCreditResolvedID INTEGER 

DECLARE ©qDelivered DECIMAL(19,2) 
DECLARE ©qAmount DECIMAL(19,2) 
1 0 DECLARE ©qPrice DEC1MAL(19,6) 

DECLARE ©qResolvedID INTEGER 

SELECT @zMessage = PSPriceWASPDivieOutProceedsN, ***STARTED* 
EXECUTE usp_Message ©zMessage 
1 5 EXECUTE usp JLastDay ©GasMonthx,@zLastDay OUTPUT 

/* 

* At this point we want to loop 

* through all of the packages 
20 * (deals) on the system that had 

* requested that the proceeds 

* be divied to other deals. 



25 



60 



*/ 



DECLARE ProceedsCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

PKG, 

FinancialPKG, 
30 KProductlD, 

KServicelD, 
FinancialMID 
FROM 

Package, 

35 K 

WHERE 

(K.KlD=Package.KID) AND 
(K.EntityCID=@EntityCIDx) AND 
(StartDate BETWEEN ©GasMonthx AND ©zLastDay) AND 
40 (((FinancialPKG IS NOT NULL) AND {FinanciaiPKG<>0)) OR ((FinancialMID IS NOT NULL) AND 



(FinancialMID<>0))) 



ORDER BY 

PKG 



45 OPEN ProceedsCursor 

FETCH NEXT FROM ProceedsCursor INTO ©yPKG^yFinancialPKG.gyKProductlD^yKServicelD^yFinancialMID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

50 SELECT ©zMessage = 'PSPriceWASPDivieOutProceedsN, Proceeds divied from deal...' + CAST(@yPKG as 



VARCHAR(12)) 



EXECUTE usp_Message ©zMessage 
/* 



55 * Get the agreed upon purchase 

* price from the engine for the 

* 'from' purchase deal. The total 

* volume across all days is also 

* obtained here (for ail meters). 



* Base the price on the weighted 

* averages for all entries within 

* the Engine table. 



65 * This yields the single weighted 

* average cost across all wells 

* and days. 

* This price should be the price 
70 * that was found PRIOR to diving 
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* out any adjusments. 
7 

IF @WhichPricex=0 
5 BEGIN 

SELECT @zPurchasePrice=ROUND(ISNULL((SELECT 
SUM(Engine.Amount)/SUM(Engine. Volume) FROM Engine,Gaslnv 

WHERE 

(Gaslnv.GasMonth=@GasMonthx AND Gasinv.PKG=@yPKG) AND (Engine.TID=Gaslnv.TID) AND (Engine.STID=8) AND 
1 0 Engine.Amount>0 
and Engine. Volume>0),0),4) 

SELECT @zTotalVolume=ISNULL((SELECT SUM(Engine.Volume) FROM Engine,Gaslnv 
WHERE (Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND 

1 5 (Engine.T!D=Gaslnv.TID) AND (Engine.STID=8) AND 

Engine.Amount>0 

and Engine.Volume>0),0) 

END 

IF @WhichPricex=1 
20 BEGIN 

SELECT @zPurchasePrice=ROUND(ISNULL((SELECT 
SUM(Engine.AmountAct)/SUM(Engine.VoiumeAct) FROM Engine.Gaslnv 

WHERE 

(Gaslnv.GasMonth=@GasMonthx AND Gasfnv.PKG=@yPKG) AND (Engine.TlD=Gasinv.TID) AND (Engine.STID=8) AND 
25 Engine.AmountAct>0 
and Engine.VoiumeAct^O)^) 

SELECT @zTota!Volume=ISNULL((SELECT SUM(Engine.VolumeAct) FROM Engine.Gaslnv 
WHERE (Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND 

30 (Engine.T!D=Gaslnv.TID) AND (Engine.STiD=8) AND 

Engine.AmountAct>0 

and Engine.VolumeAct>0),0) 

END 

r 



35 



45 



* Only continue if the purchase 

* price (average) for this deal 

* could be calculated (ie.. there 

* was a volume and there was 
40 * a price entry. 



* Now loop through each of the 

* meters to determine how much 

* to reduce each meter by... 



7 

SELECT @zGrandTotalDistributed=0 
IF (@zPurchasePrice>0) 
BEGIN 

50 IF @zTotalVolume<>0 

BEGIN 

/* This cursor is for determining proceed amounts*/ 

55 DECLARE WASPResolvedRoutingDebitCursor CURSOR LOCAL 

STATIC FORWARD_ONLY FOR 

SELECT 

receipt 
amount, 

60 price, 

ResolvedID 
FROM 

WASPResolvedRouting 

WHERE 

65 GasMonth=@GasMonthx AND 



AND 



DedicatedPurchasePKG=@yPKG 
NomOrActual=@WhichPricex 



AND 

70 EntityCID=@EntityCIDx AND 
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15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



@yWASPReceipt,@yWASPAmount, 

@yWASPPrice,@yWASPResolvedlD 

@zPurchasePrice),4) 

@2MarginAmt=ROUND((@zMarginPrice*@zTotalVolume),2) 



KProduct!D=§yKProductlD AND 
KServicelD=@yKService!D AND 
ResolvedType-P' AND 
LID=0 AND 
RecMlD=DelMID 
OPEN WASPResolvedRoutingDebitCursor 
FETCH NEXT FROM WASPResolvedRoutingDebitCursor INTO 



WHILE @@FETCH_STATUS = 0 
BEGIN 

SELECT @zMarginPrice=ROUND((@yWASPPrice- 
SELECT 

IF @yWaspReceipt>0 
BEGIN 



@zTempVolPercent=ROUND((@yWaspReceipt/@zTota!Volume) ( 4) 

@zAmountToDistribute=ROUND((@zTenipVoiPercent*@zMarginAmt) 1 2) 

@zGrandTotalDistributed=@zGrandTotalDistributed+@zAmountToDistribute 

WASPResolvedRouting 

Amount=AmounH@zAmountToDistribute*-1) 

ResoIvedlD=@yWASPResolvedlD 

WASPResolvedRouting 

Price=(Amount/Receipt) 

ResolvedlD=@yWASPResolvedlD AND 

Receipt<>0 AND 

AmountoO 

INTO @yWASPReceipt,@yWASPAmount, 

@yWASPPrice,@yWASPResolvedlD 



SELECT 
SELECT 
SELECT 
UPDATE 



UPDATE 



SET 
WHERE 

SET 
WHERE 



END 

FETCH NEXT FROM WASPResolvedRoutingDebitCursor 



END 



END 



CLOSE WASPResolvedRoutingDebitCursor 
DEALLOCATE WASPResolvedRoutingDebitCursor 



END 



/* 

* At this point, if there has been any 

* proceeds distributed from the 

* purchase deal then go and distribute 

* the amount back to the deal where 

* that is receiving credit. This is 

* based on the volume weighting 

* distribution at the target 'to' meter. 
* 

*The field zG randTota I D is tri b uted contains 

* the total dollar amount to be credited 

* the the meters (based on volume 

* weighting. 
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*/******** 'k'k'ick ^*^*^**************'* , ** , frA , A* , ii k'k 

*/ 

IF @zGrandTotalDistributed<>0 
BEGIN 

5 r 

* Post the 'from' deal with the 

* appropriate distributed amount. 

* This is the total amount across 
10 * the entire deal and is stored on 

* the deal record to provide an 

* audit of how much was diverted. 

*/ 

1 5 IF @WhichPricex=0 



BEGIN 

UPDATE 

Package 
SET 



20 



FinancialNomAmount=@zGrandTotalDistributed 

WHERE 

PKG=@yPKG 

END 

25 IF @WhichPricex=1 

BEGIN 

UPDATE 

Package 
SET 

30 FinancialActAmount=@zGrandTotalDistributed 

WHERE 

PKG=@yPKG 

END 



35 



* If diving to another deal then 

* perform this..,. Adjustments are 

* made to the WASPResoIved Routing 

* table. There is no need to post 
40 * adjustments to the Engine table 



* since the target deals have either 

* not yet calculated (dedicated) or 

* the Engine price is fixed (3rd 

*/ 

IF (©yFinancialPKG IS NOT NULL) AND (@yFinancialPKG<>0) 
BEGIN 

/* 



45 



50 

* Determine if the target deal is 

* a wasp deal or a 3rd party or 

* sanctioned sale deal... If it is a 

* wasp deal then the originating 
55 * meters in the common pool 

* will get the credit. 

*/ 

EXECUTE uspJGetWasplndicator @yFinancialPKG p @zlnclude!nWasp OUTPUT 

60 Luuuuuuuuuuumuuuuu 

* Sum totals across all meters on 

* the target deal... 

65 */ 

IF @WhichPricex=0 

BEGIN 
SELECT 

@zSumofFBOPKGCreditMeters=iSNULL{(SELECT SUM(inventory.Nom) FROM gaslnv AS inventory 
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WHERE 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



inventory.PKG=@yFinanciaIPKG AND inventory.GasMonth=@GasMonthx AND inventory.DBCR=0 AND inventory. PriceType=1),0) 

END 

IF @WhichPricex=1 

BEGIN 
SELECT 

@zSumofFBOPKGCreditMeters=ISNULL((SELECT SUM(inventory.PipelineActuals) FROM gaslnv AS inventory 

inventory.PKG=@yFinanciaiPKG AND inventory. GasMonth=@GasMonthx AND inventory.DBCR=0 AND inventory. PriceType=1),0) 

END 

/* 

* If there is some sort of volume 

* then post it proportionately. 



WHERE 



*/ 

IF @zSumofFBOPKGCreditMeters<>0 
BEGIN 

/* 

* if not a wasp deal to post the 

* credit to then... 

*/ 

IF @zlncludelnWasp <> 'Common' 
BEGIN 



posting proceeds to a dedicated deal point*/ 

WASPResolvedRoutingCreditDedicatedCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 

receipt, 
amount, 
price, 

ResolvedlD 
FROM 



I* This cursor is for 
DECLARE 

SELECT 



WASPResoivedRouting 



WHERE 



GasMonth=@GasMonthx AND 
DedicatedPurchasePKG=@yFinancialPKG AND 
NomOrActual=@WhichPricex AND 
receipt>OAND 
ResolvedType- P' AND 
UD=0 AND 
RecMID=DeiMID 
WASPResolvedRoutingCreditDedicatedCursor 

WASPResolvedRoutingCreditDedicatedCursor INTO ©yWASPCreditReceipt, 

@yWASPCreditAmount,@yWASPCreditPrice,@yWASPCreditResoivedlD 
@@FETCH_STATUS = 0 



OPEN 

FETCH NEXT FROM 



WHILE 



BEGIN 
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SELECT @zTempVoIPercent=ROUND((@yWaspCreditReceipt/@zSumofFBOPKGCreditMeters) ( 4) 
SELECT @zAmountToCredit=ROUND{(@zTempVolPercent*@zGrandTotalDistributed) p 2) 
IF @zAmountToCredit<>0 
BEGIN 

UPDATE 

WASPResolvedRouting 
SET 

Amount=(Amount-K§^mountToCredit) 

WHERE 

ResolvedlD=@yWASPCreditResolvedlD 

UPDATE 

WASPResolvedRouting 
SET 

Price=(Amount/Receipt) 



WHERE 



ResolvedlD=@yWASPCreditResolvedlDAND 

AmountoO AND 

Receipt<>0 



END 



FETCH NEXT FROM WASPResolved Routing CreditDedicatedCursor INTO ©yWASPCreditReceipt, 
@yWASPCreditAmount ( @yWASPCreditPrice,@yWASPCreditResolvedlD 

WASPResolvedRoutingCreditDedicatedCursor 
WASPResolved Routing CreditDedicatedCursor 



END 



END 

CLOSE 
DEALLOCATE 



************^^^^^^^^*************** 

* if wasp deal to post the 

* credit to then... 

*/ 

IF @zlnciudelnWasp- Common' 
BEGIN 



/* This cursor is for 



posting proceeds to a common meter purchase point*/ 

WASPResolvedRouting CreditWASPCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 

wp.receipt 
wp.amount, 
wp. price, 



DECLARE 



SELECT 



-118- 



wp.ResolvedID 
FROM 

5 

WASPResoIvedRouting AS wp, 
Gaslnv ASg 

1 0 WHERE 

g.GasMonth=@GasMonthx AND 
g.PKG=@yFinanciaiPKG AND 

15 

g.Gaslnv_M!D=wp.RecMID AND 
wp.GasMonth=@GasMonthx AND 
20 wp.DedicatedPurchasePKG=0 AND 

wp.lncludelnWasp-Common' AND 
wp.NomOrActual=@WhichPricex AND 

25 

wp.receipt>0 AND 
wp£ntityCID=@EntityC!Dx AND 
30 wp.KProduct!D=@yKProductlD AND 

wpXServiceiD=@yKServicelD AND 
wp.ResolvedType- P' AND 

35 

wp.LID=0 AND 
wp.RecMID=DelMID 
40 WASPResolvedRoutingCreditWASPCursor 

WASPResolvedRoutingCreditWASPCursor INTO @yWASPCreditReceipt f 



50 



OPEN 

FETCH NEXT FROM 



©yWASPCreditAmount^yWASPCreditPrice^yWASPCreditResoivedlD 
45 WHILE 
@@FETCH_STATUS = 0 

BEGIN 



SELECT @zTempVolPercent=ROUND((@yWaspCreditReceipt/@zSumofFBOPKGCreditMeters) J 4) 
SELECT @zAmountToCredit=ROUND((@zTempVoiPercent*@zGrandTotalDistributed) 1 2) 
IF @zAmountToCredit<>0 



55 BEGIN 

UPDATE 

60 

65 WHERE 

UPDATE 



WASPResoIvedRouting 
SET 

Amount=(Amount+@zAmountToCredit) 

ResolvedlD=@yWASPCreditResolvedlD 
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WHERE 



WASPResolved Routing 
SET 

Price=(Amount/Receipt) 

ResolvedlD=@yWASPCreditResolvedlDAND 

AmountoO AND 

ReceiptoO 



END 



FETCH NEXT FROM WASPResolved Routing CreditWASPCursor INTO ©yWASPCreditReceipt 
@yWASPCreditAmount ; @yWASPCreditPrice,@yWASPCreditResoivediD 

WASPResoivedRoutingCreditWASPCursor 
WASPResolvedRoutingCreditWASPCursor 



END 

CLOSE 
DEALLOCATE 



END 



END 



END 



* If diving to the WASP pool then 

* the total distributed is posted 

* proportionately on each leg that 

* contains this meter in the 

* 'Common' pool. 

*/ 

IF (@yFinanciaIM!D IS NOT NULL) AND (@yFinancialMID<>0) 
BEGIN 



/* 



FROM WaspResolvedRouting 
GasMonth=@GasMonthx AND LID<>0 AND 



* Sum totals across ail legs that 

* have the same meter in the 

* 'Common' pool for the month, 

*/ 

SELECT @zSumofFBOPKGCreditMeters=ISNULL((SELECT SUM(Deiivered) 

WHERE 



NomOrActual=@WhichPricex AND IncludelnWasp- Common' AND 

EntityCID=@EntityCIDx AND KProductlD=@yKProductlD AND 

KServicelD=@yKServicelD AND DeiMID=@yFinancialMID),0) 

I* 



* If there is some sort of volume 

* then post it proportionately to 

* each of the legs in the WASP 

* resolved routing table. 

*/ 

IF @zSumofFBOPKGCreditMeters<>0 
BEGIN 



poo! (non entry point)*/ 



/* This cursor is for posting proceeds to a wasp 
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15 
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25 



30 
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40 



WASPResoIvedRoutingCreditCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 



DECLARE 



AND 



SELECT 



delivered, 

amount, 

price, 

ResolvedID 
FROM 



WHERE 



WASPResolvedRoutmg 

GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex AND 
EntityCf D=@EntityCIDx AND 
KProductID=@yKProductlD AND 
KService!D=@yKServicelD AND 
DelMID=@yFinancialMID AND 

IncludelnWasp-Common' AND 
delivered>0 

OPEN WASPResolvedRoutingCreditCursor 
FETCH NEXT FROM 

WASPResolvedRoutingCreditCursor INTO@qDelivered } @qAmount,@qPrice,@qResolvedlD 

WHILE @@FETCH_STATUS = 0 
BEGIN 

/* 



LlD<>0 



*********** ********** ********************* 



percent to post 



* Determine the 
*here... 



45 



50 



55 



60 



65 



@2TempVolPercent=ROUND((@qDelivered/@zSumofFBOPKGCreditMeters),4) 
@2AmountToCredit=ROUND((@zTempVo!Percent*@zGrandTotalDistributed) ) 2) 
@zAmountToCredit<>0 

UPDATE 

WASPResolvedRouting 
SET 

Amount=(Amount-+@zAmountToCredit) 

WHERE 

ResoIvedlD=@qResolvediD 
WASPResolvedRoutingCreditCursor INTO @qDelivered,@qAmount, 



*/ 

SELECT 
SELECT 
IF 



BEGIN 



END 

FETCH NEXT FROM 



@q Price, ©qResolved ID 



END 

CLOSE WASPResolvedRoutingCreditCursor 
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DEALLOCATE 

WASPResolvedRoutingCreditCursor 

END 

END 

5 END 

COMMIT WORK 

FETCH NEXT FROM ProceedsCursor INTO @yPKG,@yFinanciaiPKG,@yKProdudD f @yKSeivicelD ) @yFinancialMID 

END 

CLOSE ProceedsCursor 
1 0 DEALLOCATE ProceedsCursor 

SELECT ©zMessage = 'PSPriceWASPDivieOutProceedsN, ***FINISHED*** 

EXECUTE usp_Message @zMessage 

END 

15 



20 



25 GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER ON SET ANSLNULLS ON 
30 GO 

CREATE PROCEDURE usp_fGetCalclndex( 



35 



40 

AS 

BEGIN 

r 

45 Name: uspJGetCalclndex 

Description: This is the main process for finding the actual price that was 
calculated for a WASP purchase deal. The WASPResolvedRouting table 
contains all of the prices for WASP purchases. 

50 

An attempt should first be made to see if the price can be resolved by reading 
for a 'Dedicated' wasp pool (sanctioned sales/purchases are more or less 
dedicated). The purchase deal id must match the dedicated purchasepkg field 
on the WASPResolvedRouting. 

55 

If the specific package cannot be found then the purchase meter will be used 
(ie.. 'Common' wasp pool). 

Inputs: 

60 

TIDx - Unique Key to gas inventory record (Gaslnv) 
NomOrActualx - 0=Nominations, ^Actualizations 
EntityCIDx- owner 
KProductlDx - product id 
65 KServicelDx - service 

GasMonthx - Current gas month 
rReturn Value - OUTPUT return value 

History: 

70 



©TIDx INTEGER, 
©NomOrActualx INTEGER, 
©EntityCIDx VARCHAR(1 2), 
©KProductlDx INTEGER, 
©KServicelDx INTEGER, 
©GasMonthx DATETIME, 
©rReturnValue DECIMAL{19,6) OUTPUT 
) 
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06/29/1999 JAMIE Modified from original creation 

(date of original creation ?) to support WASP calc changes V2.20. 



06/22/2000 JAMIE Modified to get wasp prices based on entity, 
5 product, and service. 

08/18/2000 JAMIE Modified to get the wasp prices off the WASPResolved Routing 
table versus the obsolete WASPPurchaseMeterTable. 

1 0 1 1/07/2000 JAMIE Modifications to convert from Watcom-SQL to 

Transact-SQL. 



7 

15 r 

* Declare all variables and cursors 

* that are needed by this process. 

20 V 

DECLARE @ymid INTEGER 
DECLARE @ypkg INTEGER 
DECLARE @ygasmonth DATETIME 
DECLARE ©yWorkValue DECIMAL{19,€ 

25 DECLARE ©message VARCHAR(255) 

r 

* Initialize key fields and then get 

* the meter and deal information 
30 * off the gas inventory table. 

*/ 

SELECT @rRetumVaiue=0 
SELECT 

35 @yrnid=gasinvjriid, 
@ypkg=pkg, 
@ygasmonth=gasmonth 
FROM 

gasinv 

40 WHERE 

tid=@tidx 

r 

****************************************** 

* Now try and read the price off the 
45 * WASPResolvedRouting with 

* an assumption that it could be a 

* sanctioned sale deal. 



55 



7 

50 r 



****************************************** 



* If price is a dedicated purchase 

* price then get that number. Otherwise, 

* the the price from the WASP pool. 

***********ilrfc****^************** ******* 

7 

IF {(SELECT count(*) FROM WASPResolvedRouting 

WHERE DedicatedPurchasePKG=@ypkg AND GasMonth=@ygasmonth AND Include JnWasp='Dedicated' AND 
NomOrActual=@NomOrActuaix AND RecMID=@ymid 
60 AND DelMID=@ymid AND Reso!vedType='P' AND LID=0 AND EntityCID=@EntityCiDx AND 

KProductlD=@KProductlDx AND KService!D=@KServicelDx) > 0) 

BEGIN 

SELECT @yWorkValue=Price FROM WASPResolvedRouting 

WHERE DedicatedPurchasePKG=@ypkg AND GasMonth=@ygasmonth AND lnc!udelnWasp='Dedicated' 
65 AND NomOrActual=@NomOrActualx AND RecMID=@ymid 

AND DeIMID=@ymid AND ResolvedType='P AND UD=0 AND EntityCID=@EntityCIDx AND 
KProductlD=@KProductlDx AND KServicelD=@KServicelDx 
END 

ELSE 

70 BEGIN 
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SELECT @yWorkVa!ue=Price FROM WASPResolvedRouting 

WHERE RecMID=@ymid AND DelMID=@ymid AND LID=0 AND ResolvedType='P' 
AND gasmonth=@ygasmonth AND lncludelnWasp='Common' AND 
NomOrActuat=@NomOrActualx AND EntityC!D=@EntityCIDx 
5 AND KProductlD=@KProductlDx AND KServicelD=@KServicelDx 

END 

r ^ 

* If some sort of price was found then 
10 * return with it... Otherwise zeros 

* are returned (no price calculated). 

*/ 
/* 

1 5 SELECT ©message = 'WASP Price 1 + 

CAST(@yWorkValue AS VARCHAR(12)) + 
' for meter id 1 + 

CAST(@ymid AS VARCHAR(12)) 
EXECUTE uspjnessage ©message 
20 */ 

IF ©yWorkValue IS NOT NULL 
BEGIN 

SELECT @rReturnValue=@yWorkVa!ue 

END 

25 END 



GO 

30 SET QUOTED IDENTIFIER OFF SETANSI.NULLS ON 

GO 



35 ADDITIONAL FEATURES 

The present invention has been disclosed, illustrated, and described in 
relation to a client-server application that facilitates pricing and distribution of 
fuel to a customer. Although centralized data storage and manipulation is 
preferred in regard to the version of the system that has been provided, the 

40 inventors contemplate other applications and enhancements that certainly are 
within the scope of the present invention. For example, the present invention 
relies on data inputs and feeds from a variety of entities such as producers, 
transporters, etc. Although such data inputs are often entered manually into 
the systems provided by the present invention, such data inputs could be 

45 automatically delivered and stored within data store 106 (FIG. 2). For example, 
transporters controlling actual meters along a gas pipeline, for example, could 
be outfitted with remote sensors and transmitters that provide shipment volume, 
etc. details directly to the systems provided by the present invention. Moreover, 
data inputs such as indexing datum used to drive pricing, etc. may be similarly 

50 obtained. And, since such data inputs can come from a variety of sources, 
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modern communications technologies such as the Internet, wireless 
technologies, etc. could all be used to couple an operator of the systems and 
methods provided by the present invention with such sources. Accordingly, the 
present invention is not limited to any particular data retrieval system, topology, 
method, or paradigm. Those skilled in the art will be immediately able to adapt 
and modify the underlying data collection capabilities of the systems and 
methods provided by the present invention to incorporate such new and modern 
technologies and techniques. 

Finally, it should be noted that the present invention contemplates and 
provides for an elaborate reporting capability as provided within the software 
contained on the attached compact disc. Those skilled in the art of computer 
programming and those familiar with fuel deal management will immediately 
understand that any number of report may be prepared to suit and satisfy 
management requirements. The database tables maintained by the present 
invention certainly support all types of relational type queries that such reports 
may require. 

Thus, having fully described the present invention by way of example 
with reference to the attached drawing figures, it will be readily appreciated that 
many changes and modifications may be made to the invention and to any of 
the exemplary embodiments shown and/or described herein without departing 
from the spirit or scope of the invention which is defined in the appended 
claims. 
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